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About This Manual 



Who should use this manual . . . 

This manual explains how to use WSU, the work station utility. It is 
intended for people who have a basic understanding of data 
processing concepts and perhaps some data processing experience 
and who have read the WSU Introduction or have equivalent 
knowledge of WSU. 

Using this manual, you should be able to: 

• Design WSU programs 

• Code WSU programs 

• Enter and generate WSU programs 

• Test and debug WSU programs 

• Run WSU programs and procedures 

• Follow coded WSU program examples 

• Interpret generation listings. 

How this manual is arranged . . . 

Part 1 (Chapters 1 through 1 1 ) explains how to design, code, enter, 
compile, test, debug, and run a WSU program. It is intended as a 
guide for those programming in WSU and those running WSU 
programs. 

Part 2 (Chapters 12 through 20) is strictly reference information, 
including all possible entries for each column of each WSU 
specification sheet. Chapter 20 discusses the use of ideographic 
characters in WSU programs. 

What you should know ... 

You need to be familiar with the following information before reading 
this manual: 

• You need to know how to use the controls and indicators on your 
display screen and how to use the keys on your keyboard, such as: 

- Cursor movement keys 

- Command keys 

- Field exit keys 

- Insert and delete keys 

- Error reset key. 



This information is contained in: 

• IBM 5291 Display Station Operator's Guide, GA21 -9409 

• IBM 5292 Color Display Station Operator's Guide, GA21 -941 6 
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• IBM 5251 Display Station Models 1 and 11 and IBM 5292 Dual 
Display Station Operator's Guide, Qk2\-Q2A% 

• IBM 5251 Display Station Models 2 and 12 Operator's Guide, 
GA21-9323. 

• You need to know how to operate your display station to use the 

System/36 System Support Program (SSP): 

- Signing on and signing off the display station 

- Interacting with displays 

- Using help 

- Entering control commands and procedure commands 

- Responding to messages 

This information is contained in the manual Operating Your 
Computer, SC21 -9026. 

• You need to be familiar with the data processing information 
contained in the manual Learning About Your Computer, 
SC21-9018. 

• You need to be familiar with the introduction to WSU contained in 
the manual Work Station Utility (WSU) Introduction, SC21 -7904. 

• You need to know how to design efficient programs by being 
familiar with the manual Concepts and Programmer's Guide, 
SC21-9019. 

• You need to know how to design and code displays by using the 
manual Creating Displays: Screen Design Aid and System 
Support Program, SC21 -7902. 

• You need to know how to use the source entry utility (SEU) to 
enter your source programs and to update source members. This 
information is contained in the Source Entry Utility Guide, 
SC21-7901. 

/f you need more information 

You might need some or all of the following manuals for additional 
information while using this manual. 

• System Reference, SC21 -9020, is a reference manual for all 
System/36 procedures, commands, and OCL. 

• Keyboard Template, GX21 -7929, identifies the command keys 
used by WSU. 

• Programming with PPG II, SC21 -9006, explains how to use the 
RPG language. 

• System Messages, SC21 -7938, contains all messages that the 
System/36 displays. 

• Utilities Messages, SC21 -7939, contains all printed and displayed 
messages that you might get on your WSU program. 

• System Problem Determination, SC21 -791 9, helps you determine 
whether a problem is in your own program or in the computer. 
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• IBM 5292 Color Display Station Programmer's Guide to Using 
Color, GA21 -9413, is a reference manual describing the use of 
color on the System/36 displays. 

• Sort Guide. SC21 -7903, explains how to use the SSP sort utility. 

• Ideographic Sort Guide, SC09-1 054, explains how to design, 
code, and run sort programs and procedures that use ideographic 
data characters. 

• System Data Areas, LY21 -0592, explains the data areas of the 

system. 

• Distributed Data Management Guide. SC21 -801 1 , explains how to 
use the DDM feature. 

Coding and debugging material 

• RPG Control and File Description Specifications. GX09-1 035. 

• RPG Input Specification. GX09-1 033. 

• Display Format Specifications. GX21 -9800. 

• IBM 5251 Display Station Keyboard Template Assignment Sheet 
and Display Screen Layout Sheet, GX21 -9271 . 

• WSU Job, Array, and File Specifications, GX21 -9444. 

• WSU Processing Specifications, GX21 -7936. 

• WSU/$SFGB Debugging Template, 0X21-7926. 

Naming conventions 

Generally, as an application is designed, it is helpful to follow a 
specific naming convention for programs, displays, and menus. In this 
manual, the following conventions are used for program, display, and 
menu names: 

• Program names use the format aannnW, where: 

- aa identifies the type of application: 
OE means order entry 

AR means accounts receivable 
IM means inventory management 
SE means sales entry 

- nnn is a number that Identifies the type of program: 
100-199 for data entry 

200-299 for inquiry 
300-399 for file maintenance 
400-499 for file update 
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500-599 for sort 

900-999 for report printing and listing 

- W identifies the name of a WSU program name. 

• Display names are formed by adding a D to the end of the 
program name that uses the display. If the program uses more 
than one display, a sequence of D1, D2, and so on is used. 

• Menu names use the format aannnM, where: 

- aa identifies the type of application 

- nnn is a number assigned to the menu 

- M identifies the name as a menu name. 



Summary of changes 

The following changes have been made for Release 3 Modification 0: 

• WSU now supports non -contiguous keys for alternative indexed 
files. 

• The maximum key length for indexed files has been increased to 
99 bytes. 

• The Distributed Data Management (DDM) feature to let WSU 
programs use remote transaction and master files has been added. 

• Alternative indexes can now be created over direct files. 

• Various technical and editorial changes have been made to 
improve the quality and usability of this manual. 



xiv 
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Chapter 1. Introduction 



WSU, the work station utility, is a part of the System/36 Utilities 
Program Product. 

WSU is designed to help you write application programs that enter 
data into a single transaction file from one or more display stations, as 
well as edit and verify the data that is entered. WSU will also help 
you write programs that inquire into or maintain master files, again 
from one or more work stations. 

If you have read the WSU Introduction, much of this first chapter is 
going to be familiar to you, because it is a summary of the essentials 
of WSU. The second chapter in this manual then expands on some of 
the topics mentioned at the end of the WSU Introduction. 

Using This Manual to Write WSU Programs 

You can use this manual in three ways: 

• As a guide 

• For examples 

• As a reference. 

As a Guide 

The first part of this manual is intended as a guide in completing these 
steps for writing and using WSU programs: 

1 . Designing the program 

2. Coding the program on specification sheets 

3. Entering the code into the system, probably with SEU 

4. Generating the program 

5. Testing the program and debugging it if necessary 

6. Running the program. 
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Step 1 . Design 



Designing a program means planning the output, the processing, and 
the input. You must decide what information you need the program 
to produce, what processing will produce the necessary information, 
and what input data is available. 

Chapters 1 through 3 present some information on WSU that you will 
need to know in order to design a WSU program; the Concepts and 
Programmer's Guide describes in much more detail the techniques for 
analyzing and designing application programs. 

Step 2. Code 

Coding a program means writing the instructions that tell the 
computer what data to use, how to process it, and what to do with 
the results. You write these instructions as specifications: 

• Job (J) specification 

• Array (E) specification 

• Transaction file (T) specification 

• Master file (M) specification 

• Display format (S) specification 

• Field definition (D) specification 

• Processing (C) specification. 

WSU also requires a file definition, which includes the following 

specifications: 

• File description (F) specification 

• Input (I) specification. 

Chapters 4 through 7 discuss considerations for coding files, arrays, 
displays, and processing for WSU programs. 

Step 3. Enter 

Entering a program means getting your written instructions (your 
code) into the computer. You use SEU (the source entry utility) or in 
some cases SDA (the screen design aid) to enter your instructions. 
Chapter 8 discusses entering code. 

Step 4. Generate 

Generating (or compiling) a program means changing your 
instructions (called a source program) into a form that the computer 
can use (called a subroutine by WSU). The generating is done by the 
computer; all you have to do is enter the correct command that tells 
the computer how to generate your source program. Chapter 8 
discusses generating your program. 
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Step 5. Test and Debug 



Testing a program means running a program with some sample data to 
be sure that it produces the proper results. Testing helps you find 
errors (bugs) in your program before you run it with your actual data. 

Debugging a program means correcting errors in it. After you debug 
your program, it is ready to use. 

Chapter 9 discusses considerations for testing and debugging your 
program. 

Step 6. Run 

Running a program means using a generated program to process some 
data. Once your program compiles successfully, all an operator has to 
do is either enter the procedure command that tells the computer to 
run your program or select an item from the WSU display. 

Chapter 7, Coding Processing, includes information about what 
happens when a program is run; you will need this information when 
you code the processing for your program. 

Chapter yo, ATTENTION: OPERATORS, describes running a WSU 
program; it is intended for those charged with running the actual 
program. 

For Examples 

Chapter 1 1 contains several programs provided as examples to 
illustrate WSU's abilities. 

As a Reference 

The second part of this manual is intended as reference material. 

Chapters 12 through 17 describe the specific entries that can be made 
for each appropriate column of the various specification sheets. 
Chapter 18 describes the operation codes, and Chapter 19 the 
transaction file processing procedures that WSU provides. 
Considerations for using ideographic characters are discussed in 
Chapter 20. 

Appendixes provide formulas and summary charts. 

in addition, there is a Glossary that defines data processing, 
System/36, and WSU terms that you may not be familiar with, and, of 
course, an Index to help you locate the topic you need. 
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What WSU Is Designed To Do 

With master fi/es \NSU programs can do: 

• Inquiry 

• Maintenance. 

With transaction fifes, WSU programs can do: 

• Data entry 

- Simple 

- With edit 

- With update 

• Record review 

• Record insertion 

• Record deletion. 

Inquiry programs let the operator(s) enter a key field on a display, 
and then the programs display certain information from a 
corresponding record in a master file. 

Inquiry 

User A 



Employee No. 
1234 



' 1234 





Application 
Program 




Master File 








1234 

Nickel, S T 
50.0 hours 


b— 

■ i— 




J 









Maintenance programs let the operator(s) change or add records in 
an existing master file. 
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Simple data entry is like typing index cards, but with WSU the 
operator is prompted for the information, and the program takes care 
of putting it in the proper positions in the transaction file record. 



Simple Data Entry 



User A 



Enter 



Application 
Program 




Employee No. 
1234 

Nickel, S T 



User B 



Employee No. 
4567 

Eakins, B F 



Transaction File 



1234 

Nickel, S T 



4567 

Eakins, B F 
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Data entry with edit has the WSU program check to see if the 
typed data is correct. Editing can be done by: 



• Checking the master file to verify entries (such as whether a 
master record exists for that transaction record, or whether 
overtime hours were entered for an employee on salary) 

• Designing some standards into the program (such as whether 
overtime hours are excessive). 



Data Entry with Edit 



Us er A 

Employee No. 
1233 



\ 

I Not found 

\ / 



User B 



Employee No. 
4567 

65.0 hours 



I Too much I 

\ / 
V J 



Application 
Program 



Master File 



60.0 hours 
maximum 




Data entry with update lets an operator also retrieve records from a 
transaction file and make changes to those records. 



Record review lets an operator review transaction records entered, 
during the current session or during a previous session, from that 
display station. 

Record insertion lets an operator place records within the chain of 
transaction records maintained for that display station. 

Record deletion lets an operator remove records from the chain of 
transaction records maintained for that display station. 



What WSU Is Not Designed to Do 

WSU is intended only as a data entry/update, maintenance, and 
inquiry utility; it does not produce printed reports. So printed reports 
based on master or transaction files must still be produced using DFU 
or programs written in RPG or another programming language. 
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WSU Files 

Files and arrays, iricluding considerations for coding them, are 
described in Chapter 4, Coding Files, and Chapter 5, Coding Arrays. 

Arrays 

WSU allows you to search arrays, at the time your program is run, for 
a uniquely identified data item. WSU arrays are described on 
E- (array) specifications and created by C- (processing) specifications. 
Up to 75 execution -time arrays can be used in a WSU program. 

Master Files 

WSU uses the same master files, direct or indexed, as other languages 
and utilities. 

Your system may have DDM (Distributed Data Management). DDM 
lets WSU programs use master files that are on a remote system. (A 
file on a remote system is referred to as a remote file.) For a brief 
description of DDM, see Appendix B. 

A combined total of up to 20 remote and local master files can be 
referenced or updated in a WSU program. 

Transaction Files 

A WSU transaction file is a direct file, and only one is used per 
program. Also, only one program should work with any given 
transaction file. 

ur system has DDM, your WSU program may use a remote 
iidiiadction file. 

The data in a transaction file can come from any or all of three 
sources: 

• From operators, responding to prompts on the displays 

• From related master files 

• From the program. 

The records in your transaction file can be of two types: detail and 
header. 

• Detail records contain the information for one transaction. 

• Header records contain information that applies to all the detail 
records associated with them. 

Transaction files also contain, in addition to your data, some control 
information that WSU puts in for its own use. The control information 
includes: 

• The job control record 

• A work session control record for each display station 
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• A 1 3-position trailer field that WSU adds to the end of each data 
and control record, which contains pointers to form a logical chain 
of the records associated with each display station. 

What WSU Requires to Generate an Application 

WSU uses three things to generate an application program: a file 
definition, a source program, and a procedure command. 

The File Definition 

The file definition describes the records in the transaction and master 
files. The file definition for WSU consists of: 

• A F-(file description) specification for each file, describing the 
physical characteristics and the organization of the file 

• I -(input) specifications for each record type in the file, describing 
the format of the records. I -specifications also describe local data 
area fields and session -level fields. 

These specifications must be stored in one or more source members 
that are different from the member that contains the WSU source 
program. There are several ways in which file definitions can be 
stored in a library. You can have: 

• A separate source member for each file's F- and I -specifications 

• One source member that contains all of the necessary F- and 
I -specifications 

• Two or more source members with some members containing the 
F- and {-specifications for two or more files 

• A source member that contains an entire RPG II source program. 
From that source member, WSU uses only the F- and 

I -specifications. 

The T-specification in the WSU source program indicates which file 
definition source member contains the F- and I -specifications for the 
transaction file; the M -specifications in the WSU program indicate 
which file definition source members contains the F- and 
I -specifications for the master files as well as the I -specifications that 
describe local data area and session-level fields. 

Chapter 1 2, F-(File Description) and I -(Input) Specifications, explains 
the entries on F- and I -specifications; Chapter 8, Entering and 
Generating a WSU Program, describes entering the F- and 
I -specifications using SEU. 
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The WSU Source Program 



The source program consists of instructions to process data and to 
format the displays. 

• The J -(job) specification describes some characteristics about the 
program you are writing. 

• The E- (array) specifications describe any execution -time arrays 
that will be used for the job. 

• The T- (transaction file) specification describes the transaction file 
(if any) that will be used for the job. 

• The M-( master file) specifications describe any master files that 
will be used for the job. 

• The S- (display control) specifications describe some overall 
characteristics of each display presented by the program. 

• The D- (field definition) specifications describe the data that will 
be part of each display. 

• The C- (processing) specifications describe any operations that are 
to be performed on the data as well as the direction the program 
should take in a given situation. 

Chapter 4, Coding Files, discusses considerations for using files in 
your WSU program; Chapter 15, T- (Transaction File) and M-(Master 
File) Specifications, gives detailed information on completing each 
appropriate column of those specification sheets. 

Chapter 5, Coding Arrays, discusses considerations for using arrays in 
your WSU program; Chapter 14, E-(Array) Specifications, gives 
detailed information on completing each appropriate column of that 
specification sheet. 

Chapter 6, Coding Displays, discusses considerations for using 
displays in your WSU program; Chapter 16, S-(Display Control) and 
D- (Field Definition) Specifications, gives detailed information on 
completing each appropriate column of those specification sheets. 

Chapter 7, Coding Processing, discusses considerations for using 
processing in your WSU program; Chapter 17, C- (Processing) 
Specifications, gives detailed information on completing each 
appropriate column of those specification sheets. 

Chapter 8, Entering and Generating a WSU Program, tells you how to 
enter the specifications into the system. 

WSU Procedure Command 

When you have created and stored the file definition and the source 
program, you generate your program by entering the WSU procedure 
command. The command and its parameters are discussed in detail in 
Chapter 8, Entering and Generating a WSU Program. 
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What WSU Produces 



When WSU builds, or generates, an application program from the file 
definition and source program you provide, it produces: 

• A WSU program that is stored as a subroutine member (not as a 
load member) 

• A load member containing the display formats 

• A procedure that operators use to run the program/job 

• A generation printout (similar to those produced by other 
programming languages) that lists the program instructions as well 
as any errors that WSU may have identified. 

If WSU finds severe or terminal errors in your program, it gives you 
only the source printout identifying those errors and WSU ends. The 
output from a WSU program generation is described in Chapter 8, 
Entering and Generating a WSU Program, and in Chapter 9, Testing 
and Debugging a WSU Program. 

Figure 1 -1 shows the steps that WSU goes through to produce the 
procedure used to run WSU programs. 



Source 
program 

I 

I I 
I I 

File 

definition 



WSU 

procedure 
command 







WSU 


WSU 








program 
(subroutine) 



Format 

load 

member 



Procedure 



Generation 
printout 




Figure 1-1. WSU Program Generation 
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Chapter 2. How WSU Works 



WSU Jobs and Work Sessions 

A WSU job is the entire period starting when the first user (display 
station) signs on to a particular application program until the time the 
last user signs off. More than one WSU job (for example, an order 
entry program and an inventory inquiry program) can run at the same 

time. 

A WSU work session is the period starting when a particular user 
(display station) signs on to a job until the time that particular user 
signs off. Several work sessions can begin and end during the course 
of a job, because WSU programs can be designed to allow more than 
one user at the same time. 
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Following is an example of WSU jobs and work 
business day: 

8:25 a.m. Mary Schmidt signs on to 

a WSU program named IM200W 
from display station W2. 

9:05 a.m. William Russell signs on 
to program •M200W 
from display station W3. 

10:15 a.m. Carol Anderson signs on to 

a WSU program named AR102W 
from display station W4. 

1 1 :55 a.m. Mary Schmidt signs off 
program IM200W 
from station W2. 

1 :05 p.m. Mary Schmidt again signs on 
to program IM200W 
from station W2. 

William Russell signs off 
program IM200W 
from station W3. 

1 :20 p.m. Michael Blake signs on 
to program AR102W 
from station W3. 

2:15 p.m. Carol Anderson signs off 
program AR102W 
from station W4. 

3:45 p.m. Mary Schmidt signs off 
program IM200W 
from station W2. 

4:30 p.m. Michael Blake signs off 
program AR102W 
from station W3. 



sessions during a 
Begins job and session 

Begins session 

Begins job and session 



Ends session only 
(because W3 is still 
active) 

Begins another session 



Ends session only 
(because W2 is again 
active) 

Begins session 



Ends session 



Ends session and job 



Ends session and job 
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8:25 9:05 10:15 11:55 1:05 1:20 2:15 3:45 4:30 

I I i I 1 I I 

I Job IM200W 

I ' Mary Schmidt 1 | Mary Schmidt 

W2 Work Session for Job IM200W 



William Russell ■ 



W3 Session for Job IM200W 



Job AR102W 



■Carol Anderson' 



W4 Work Session for Job AR102W 



Michael Blake- 



W3 Session for Job AR102W 
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WSU Modes Of Operation 



Modes are the four different ways in which WSU programs can work 
with a transaction file: 

• If the operator is simply adding records to the transaction file by 
entering data in response to prompts (data entry), the program is 
said to be in enter mode. Enter is the initial mode and the 
standard mode when a program is run. 

• If the operator is looking at or updating records previously entered 
in the transaction file (record review), the program is in review 

mode. 

• If the operator is inserting records between records that already 
exist in the transaction file (record insertion), the program is in 
insert mode. 

• If the operator is removing records from a transaction file (record 

delete), the program is in delete mode. 

Operators change from one mode to another, if the program allows for 
such changes, by using command keys. 

Enter Mode Program Cycle 

The basic cycle for a WSU program (that is, for enter mode) is: 
1 . Show a display. Show a 



2. Accept input from the display. 

3. Process the input. 

4. Select the next display to show. 

5. Return to 1 . 




input 



WSU programming logically fits this cycle because you define a 
display (on S- and D-specifications), then define the processing that 
should occur for the display (on WSU C-specifications). And you 
define the displays and processing in your program in the order that 
you want the displays to appear. 
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Enter Mode Processing Levels 

Processing levels are steps in the enter mode program cycle (see 
Figure 2-1) that occur automatically at specific times: 

• Job initiation (IJ) occurs once, when the first display station calls 
the program. 

• Woric session initiation (IW) occurs once for each display station 
(including the first) before processing for that display station 
begins. 

• End of sequence set (ES) occurs whenever a primary display 
sequence ends. (See Enter i\4ode Display Sequences later in this 
chapter.) 

• End of work session (EW) occurs once for each display station 
(including the last) when the display station ends its use of the 
program. 

• End of job (EJ) occurs once, when the last display station ends its 
use of the program. 

You can ignore these steps in the cycle if you wish, or you can tie 
special processing and/or displays to them as follows: 

• IJ, IW, EW, and EJ processing levels 

- One display and associated processing (S-, D-, and 
C-speciifications) or 

- One display with no associated processing (S- and 
D-speciifications only) or 

- Processing with no associated display (C-specifications only). 

• ES processing level 

- Processing with no associated display (C-specifications only). 



Refer to Chapter 6, Coding Displays, and Chapter 7, Coding 
Processing, for explanations of how to associate processing levels 
with displays and processing. 
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When a WSU program begin's, 
the IJ display appears and IJ 
processing occurs when the 
display is entered. 



IJ processing is followed by 
the IW display and IW process- 
ing. For program requests 
other than the first, the IW 
display/processing occurs 
first. 



After IW processing has been 
done, WSU selects the first 
display of the primary 
sequence. When the display 
is entered, its processing 
occurs. 

WSU will then reselect this 
display if it is specified as a 
repeat display (this is also true 
of any nonprocessing level 
display) or select the next 
display in the primary 
sequence. Again, after the 
operator enters the display, 
its processing occurs. 

This select/process sequence 
continues until processing of 
the last display in the primary 
sequence has been done. Then, 
WSU does any ES processing. 
After ES processing com- 
pletes, WSU selects the first 
display in the primary 
sequence and refjeats the 
sequence. 




Yes 



Show IJ display and 
do IJ processing 
(optional)' 



J 



Show IW display and 
do IW processing 
(optional)' 



ES processing occurs after the 
processing of the last display 
in the primary sequence com- 
pletes or after the processing 
for any display completes and 
the ES indicator is on. ES 
processing does not occur for 
secondary sequences. 



Select a display 



Show the selected 
display 



Process the display 




Yes 


Oo ES processing 




(optional ) ' 



Show EW display and 
do EW processing 
(optional)' 



The EW display/processing 
occui's when an operator 
(including the last opera- 
tor) specifies EW on the 
WSU menu or when the 
program sets the EW or EJ 
indicator on. 




Show EJ display and 
do EJ processing 
(optional)' 



The EJ display /processing 
occurs once per program, 
after EW processing com- 
pletes for the last display 
station, or when the pro- 
gram sets the EJ indicator 
on. 



^ End the job ^ 



^Optional means the program need not include a display and /or processing instructions for this level. 
Figure 2-1. WSU Enter Mode Processing Levels 
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Enter Mode Display Sequences 



You can define as many as 245 displays in a WSU program. In enter 
mode, displays can be sequenced (grouped in a particular order) so 
that when one display completes processing, the next one in sequence 
is automatically presented and when the last display of the sequence 
completes processing, the first display is automatically presented 
again. 

Once a sequence begins, a work session stays in that sequence until 
the program or the operator selects a display that is out of the 
sequence. The program can modify display sequences by using 
PUTS, MSG, and IMSG operations (see Chapter 7, Coding 
Processing, and Chapter 18, Operation Codes). 

The operator can modify display sequences either by pressing the 
Bypass Display command key (Cmd 2) or by pressing the WSU 
Display command key (Cmd 1 ) and then responding to the WSU 
display. (Chapter 1 0, Running a WSU Program, describes the keys 
and the WSU display). 

WSU recognizes three types of display sequences: primary, secondary, 
and nonsequenced. (IJ, IW, EW, and EJ displays are not included). 

Primary Display Sequence 

The primary display sequence is placed first in the source program 
(unless you are using I J and/or IW displays). WSU requires one (and 
a/lows only one) primary sequence per program; however, this 
sequence can be as brief as one display. 

Secondary Display Sequences 

Secondary display sequences are optional; if used, they immediately 
follow the primary sequence in the source program. You can include 
more than one secondary sequence per program. 

Nonsequenced Displays 

Nonsequenced displays are not included in either the primary 
sequence or any of the secondary sequences. They must follow alt 
sequenced displays in the source program. You can include more 
than one nonsequenced display per program, and you can use a 
primary sequence and nonsequenced displays with no intervening 
secondary sequences. 
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Defining Display Sequences 



Display sequences are defined by the Start Sequence and End 
Sequence entries of the S -specification and by their place in the 
source program. See Chapter 6, Coding Displays, and Chapter 16, 
S-( Display Control) and D- (Field Definition) Specifications for further 
information. 



Types of Display Sequences 
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Review Mode 



When you code your WSU program to allow review mode for a 
transaction file, operators can look at, or look at and change, those 
records in the transaction file chain for the current work session. That 
is, if an operator were at display station W1, he could review any 
records in the transaction file that had been entered from W1, whether 
he had just entered them or whether he or someone else had entered 
them earlier in the day or week. (It is possible to allow operators to 
also review records entered from display stations other than the one 
they are using; see Universal Work Session Selection Authorization in 
Chapter 8.) 

You code your WSU program to allow review mode by designating 
one or more displays in your program as review-capable; that is, a 
display that can be used to review records. You do this by specifying 
the record types that can be reviewed using that display as the Review 
Mode Record Identifying Indicators entry (columns 48 through 53) of 
the appropriate S-specification. (For more information, see Chapter 6, 
Coding Displays, and Chapter 16, S- (Display Control) and D- (Field 
Definition) Specifications. 

You can also code certain conditions and operations for review mode 
on the display's C-specification. (For more information, see Chapter 
7, Coding Processing, and Chapter 17, C- (Processing) Specifications. 
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Review Mode Variations 



Review Only 

If you want operators to be able to look at records but to make no 
changes to them, there are several methods you can use to code 
processing for the review-capable displays: 

• You can code a GOTO operation that branches to the end of the 
processing when the RV (review mode) indicator is on. 

• You can condition PUT operations to occur only when the RV 
indicator is not on. 

• You can define a preprocessed display where, when the RV 

indicator is on, a SETON operation turns on another indicator (01 
through 89) to protect all input fields; then a PUTS operation 
presents the review display. You also need to specify the indicator 
ifor the Protect Field entry on the D-specification. Preprocessing is 
described in Chapter 7. 

Review with Update 

If you want operators to be able to change records as well as look at 
them, you can simply use the RV indicator to condition the operations 
on the C-specifications that should (or should not) occur during 

review. 

Review with Master File Update 

If you want to allow changes to the master file record at the same time 
that the transaction file is being reviewed/changed, the review display 
should be a preprocessed display. That way, in the preprocessing, 
certain operations can be done on the master file record before the 
transaction file record is displayed for review and the operators have a 
chance to change the data. See Updating Master File Records During 
Review Mode later in this chapter for some things to consider when 
coding reviews of this kind. 



2-10 IBM System/36 Work Station Utility Guide 



Review Mode Displays 



WSU does not automatically generate separate displays for review 
mode from existing enter-mode display formats. You must either code 
and condition your enter-mode displays to be used for review as well 
or code separate displays for review mode that are in a separate 
sequence of their own. 

Separate Review Mode Displays 

Although coding additional displays may at first seem like a lot of 
extra effort, you will probably find that your coding is actually simpler 
when you keep the enter displays and processing and review displays 
and processing separate. 

Combined Enter/Review Mode Displays 

You may still prefer to use the same display for both entry and review. 
If so, for each input field, the Output Data entry (columns 23 and 24) 
on the D-specification must be conditioned by an indicator that is 
turned on when review mode starts. 

WSU does this for you automatically if you have nothing else coded 
for that entry; it inserts indicator 99 (one of its reserved indicators) as 
the value for columns 23 and 24 and then turns indicator 99 on when 
review mode starts. 

However, if you have already coded an indicator for the Output Data 
entry, WSU cannot use its indicator. In that case, you will have to use 
a SETON operation in the C-specifications to turn your indicator on 
when review mode starts (indicator RV is on) if you want that field 
displayed for review. 
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Display Sequences in Review iVIode 

Enter mode's automatic display sequence does not apply to review 
mode, nor do the required or repeated displays. Instead, the program 
and/or the operator control display selection. 

The operator can control display selection by either: 

• Using the Bypass Display command key (Cmd 2) to get the next 

review-capable display 

• If he knows the format ID of the display he wants to select, using 
the WSU Display command key (Cmd 1 ) to get the menu and 
then entering the format ID on the first line of the menu. 



W5 WORK STATION UTILITY DISPLAY 

Enter display selection identifier 

Enter EW to end work session 

Enter session selection Identifier for restart . . . 

Enter review record number 

02 W5 000020 — 




0000000 



V J 

When an operator finishes reviewing a record, he can either press the 
Enter key to process that display or press a command or function key 
to request another WSU function. 

If he presses the Enter key, all the input fields are given to the 
program, and processing for the display begins. When processing is 
finished, WSU sends a message, and the operator can do one of the 
following: 

• Select another record or display for review 

• Begin insert or delete mode 

• Resume enter mode 

• Select a new work session (if authorized to do so) 

• End the work session. 

If he presses an enabled WSU command or function key instead of the 
Enter key, the processing for that display does not happen (although 
preprocessing, if any, does) . 
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Review Mode Functions 



An operator starts review mode when, during enter mode, he presses 
the appropriate command or function key to request one of the 
following review functions: 

• Page backward 

• Page forward 

• Review by relative record number 

• Resume review. 

Page Backward 

An operator can review the previous record in the chain by pressing 
the Page Backward Record function key (Roll R). Or, if the file 
contains header records as well as detail records, he can review the 
previous record by pressing the Page Backward Group command key 
(Cmd 5). (Header records are designated by an entry in the Header 
Record Identifying Indicator field of the T-specification; for more 
information, see Chapter 4, Coding Files, and Chapter 1 5, 
T- (Transaction File) and M-(Master File) Specifications.) If the 
operator tries to page backward past the first record of the chain, WSU 
displays an error message. However, the operator can wrap around 
the file to the last record (or header record) in the chain by pressing 
the Error Reset key in response to the message, then pressing the 
appropriate Page Backward key again. 

Page Forward 

An operator can review the next record in the chain by pressing the 
Page Forward Record function key (Roll f ). Or, if the file contains 
header records as well as detail records, he can review the next header 
record by pressing the Page Forward Group command key (Cmd 6). 
If the operator tries to page forward past the last record of the chain, 
WSU sends an error message. However, the operator can wrap 
around the file to the first record (or header record) in the chain by 
pressing the Error Reset key in response to the message, then pressing 
the appropriate Page Forward key again. 
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Review by Relative Record Number 



If the operator knows the relative record number of the record he 
wants to review, he can press the WSU Display command key (Cmd 
1 ) and specify that number on the fourth line of the WSU display. 



W5 WORK STATION UTILITY DISPLAY 

Enter display selection identifier 

Enter EW to end work session 

Enter session selection identifier for restart 

Enter review record number 0000000 

02 W5 000020 - 



V J 

WSU places the specified number in a reserved field named *RLRN 
(Chapter 3 describes the reserved fields and their uses). 

This function is useful if you want to batch-edit the transaction file; 
that is, after the data is entered, you use a separate edit program (or 
manual process) to verify ail the data, then the operators use the data 
entry program again to make any needed corrections to specific 
records. 

You can use the WSU Extract procedure (WSUTXEX) to select and 
print, in logical order, the chain of records for a work session, 
including the relative record numbers. The WSU Extract procedure is 
described in Chapter 4, Coding Files, and in Chapter 1 9, File 
Processing Procedures. 

If the operator enters the relative record number of a record that is not 
in his work session chain, WSU displays an error message (but does 
not turn on the record-not-found indicator) and places the identifier of 
the owning session in a reserved field named *USID. 
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WSU also shows the ID of the record's session chain as the default 
selection on the third line of the WSU display. 



us WORK STATION UTILITY DISPLAY 

Enter display selection Identifier 

Enter EW to end work session 

Enter session selection Identifier for restart 

Enter review record number 0000000 

02 W5 000020 ~ 



V J 

You can modify the generated procedure for your program (see 
Chapter 8) to allow operators to select work sessions other than their 
own. If you do so, the operator can, after getting the message that 
the requested record is not his, press the WSU Display command key 
(Cmd 1 ) again and select the session that the record belongs to. 



Review 



If the operator wants to see the record he most recently reviewed 
again, he can press the Resume Review Mode command key (Cmd 
1 5) from the WSU display or from any display in any mode. WSU 
knows which record was most recently reviewed because, when a 
record is reviewed, WSU places its relative record number in a 
reserved field named *RLRR (Chapter 3 describes the reserved fields 
and their uses). 
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WSU's Role in Review Mode 



When an operator requests a review function by pressing one of the 
appropriate keys (see Review Functions earlier in this section), WSU 
does the following things: 

• Sends a message telling the operator that he is now in review 
mode 

• Saves all the mode- level fields and indicators that were being used 
in enter mode (so they can be restored later when the operator 
resumes enter mode) 

• Sets the mode- level fields to blanks or zeros and the mode-level 
indicators off (so they can be used for review and processing) 

• Sets on the review mode indicator (RV) and indicator 99 (reserved 

indicator) 

• Retrieves the appropriate record and determines its type 

• Searches the S-specifications in the program (from first to last) for 
the first display that allows review of that record type 

• Shows the operator the requested record using the appropriate 
review-capable display 

• Places the relative record number of the record being reviewed in 
a reserved field named *RLRN, thus designating the record as the 
current record and using it as a reference point for the next paging 
request or chain-dependent operation (like GETNR) 

• Places the relative record number of the record previously 

reviewed in a reserved field named *RLRR, thus designating the 
record as most recently reviewed and using it as a reference point 
for insert, delete, or resume review functions 

• Issues a message if one of the following situations occur: 

- The record could not be identified 

- No review-capable display could be found for the requested 
record's type 

- An attempt was made to page past the end or the beginning 

of the chain 

- The requested relative record number is not for a record in the 
requester's chain. 
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Updating Master File Records During Review l\/lode 



Master file records can be read and rewritten while your program is in 
review mode; however, you should not code a PUTS, MSG, or I MSG 
operation, nor a GET operation for a different file, between the point 
the master file record is read and the point it is subsequently rewritten 
Also, a master file record must be read and rewritten in the same 
mode, without an intervening mode change or an intervening review, 
delete, or insert request. That is, a program cannot read a master file 
record in enter mode and write that record in review mode. 

For a review that allows master file update, the review display should 
be a preprocessed display. During preprocessing, certain operations 
can be done to the master file record before the reviewed transaction 
file record is displayed and operators have a chance to change the 
data. 

Remember that an operator is not required to enter a reviewed record, 
so preprocessing for the review display could happen but processing 
not happen. Therefore, information from the master file record should 
be saved in the preprocessing and changed in the processing. 

Once the master file record data is read and saved, you should code a 
PUTS operation to display the reviewed record. Then, when the 
operator updates the data and enters the display, processing resumes 
with the operation that follows the PUTS operation. 

You should condition operations with the RV indicator to read the 
proper master file record and to use the reviewed transaction file 
record data to restore the master file fields to their original status 
before the update was made. (This restoring is done by reversing the 
updates, for example, subtracting data that was added.) The 
processing that follows the master file update should do the same 
processing that was done for the initial entry of the record. 
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Insert Mode 



When you code your program to allow insert mode for a transaction 
file, operators can logically insert all types of records (except header 
records) into the transaction file chain for the current session. That is 
if an operator is at display station W2, he can insert records into the 
chain of records that have been entered at W2. (It is possible to allow 
operators to also insert records into chains of other work sessions; see 
Universal Work Session Selection Authorization in Chapter 8.) 

Master file records can be read and written while the program is in 
insert mode; however, they must be both read and written in the same 
mode. 

If you want to allow insert mode in your program, you must also allow 
review mode (see the previous section for information on coding and 
using review mode). To allow insert mode in your program, you must 
designate one or more displays as insert-capable that is, a display that 
can be used to insert records (normally these would be the 
enter-mode displays). You do this by specifying the record types that 
can be inserted using that display as the value for the Insert Mode 
Record Identifying Indicators entry of the S-specification. (For more 
information, see Chapter 6, Coding Displays, and Chapter 1 6, 
S' (Display Control) and D- (Field Definition) Specifications. 

An operator starts insert mode when, during review mode, he displays 
the record that will precede the inserted records and then presses the 
Insert Mode command key (Cmd 4). 
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Display Sequence in Insert Mode 



Enter mode's automatic display sequence does not apply to insert 
mode, nor do the required or repeated displays. Instead, the program 
and/or the operator control display selection. 

The operator can use the Bypass Display command key (Cmd 2) to 
get the next insert-capable display for a record. When the operator 
finishes typing the information to be inserted, he presses the Enter key 
to give the input fields to the program and begin processing. When 
processing completes, WSU sends a message and the operator can 
then do one of the following: 

• Insert another record 

• Resume enter mode 

• Resume review mode 

• Select a new work session (if authorized to do so) 

• End the work session. 

Inserting a Group of Records 

To allow a group of records to be inserted, you can code the 
processing for an insert-capable display to handle multiple inserts 
using one of the following methods: 

• For a display that is not preprocessed: 

- Code a PUTS operation, conditioned by the IN indicator, as 
the last operation in the C-specifications for that display. 

• For a display that is preprocessed: 

- Code a GOTO operation, directed to the first operation in the 
preprocessing, and conditioned by the IN indicator, as the last 
operation in the C-specifications for that display. 



Or, if you do not include such coding in your program, the operator 
can switch back and forth between review mode and insert mode for 
each record to be inserted, repeating the following steps: 

1 . Insert a record. 

2. Press the Page Forward Record function key (Roll i) to display 
the inserted record. 

3. Press the Insert Mode command key (Cmd 4). 

4. Repeat the process. 
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WSU's Role in Insert Mode 

Before starting insert mode, an operator must first be in review mode 
and must review the record that will precede the inserted record. 
Then, when an operator starts insert mode by pressing the Insert 
Mode command key (Cmd 4), WSU: 

• Reads the displayed record and determines its type 

• Searches the S -specifications in the program (from first to last) for 
the first display that allows insertion after that record type 

• Presents that display to allow an operator to insert a record 

• Sets on the insert mode indicator (IN) so that input fields also 

become output fields. 

Except for indicator IN and reserved field *RLNO, the mode-level 
fields and indicators remain as they were in review mode. 

When an operator enters an inserted record, WSU: 

• Places the inserted record after the last nonblank record in the file 

• Sends a message to the operator. 
When an operator ends insert mode, WSU: 

• Updates the trailers to link the inserted record into the logical 
chain 

• Sets indicator IN off. 
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Delete Mode 



When you code your program to allow delete mode for a transaction 
file, operators can logically delete any types of records from the 
transaction file chain for the current session. That is, if an operator is 
at display station W2, he can delete records from the chain of records 
that have been entered at W2. (It is possible to allow operators to 
also delete records from chains of other work sessions; see Universal 
Work Session Selection Authorization in Chapter 8). 

If a header record is deleted, all the records associated with the header 
record remain linked together, and the entire group of associated 
records is logically removed from the transaction file chain. 

If you want to allow delete mode in your program, you must also 
allow review mode, because WSU deletes the most recently reviewed 
record (that is, the one whose relative record number is in the reserved 
field named *RLRR). See the previous section for information on 
coding/using review mode. 

An operator starts delete mode when, during review mode, he presses 
the Delete Mode command key (Cmd 14). WSU displays the most 
recently reviewed record for verification and a message that delete 
mode is active. The operator can then (after responding to the 
message) either: 

• Cancel the delete request by doing one of the following: 

- pressing the Accept- Sequence- Error command key (Cmd 13) 

- requesting a different mode 

• Confirm the delete request by pressing the Enter key. 
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WSU's Role in Delete Mode 



When an operator starts delete mode, WSU: 

• Sends a message telling the operator that he is now in delete 

mode 

• Determines which is the most recently reviewed record and 
determines its type 

• Searches the S-specifications in the program (from first to last) for 
the first display that allows review of that record type 

• Shows the most recently reviewed record using that display to 
allow the operator to verify the delete request 

• Sets on the delete mode indicator (DL). 

If delete mode was started from enter mode, WSU saves all the 
mode-level fields and indicators and sets the mode-level fields to 
blanks or zeros and the mode- level indicators off. 

If delete mode was started from review mode, the mode- level fields 
and indicators (except for indicator RV) remain as they were in review 
mode. 

When an operator deletes a record, WSU: 

• Updates the trailers to remove the deleted record from the logical 
chain 

• Sets indicator DL off 

• Sends a message to the operator. 
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Display Station Fields and Job-level Fields 



WSU uses an area in main storage in which it keeps ail of the fields 
defined in your program. It classifies these fields as: 

• Display station fields 

• Job-level fields. 

Display Station Fields 

Because a WSU program Is an MRT (multiple requester terminal) 
program, it can accept input from several display stations, one station 
at a time. The current display station is the one from which the 
program is accepting input. 

Each display station has a set of fields that are initialized when a work 
session is started at the display station. These fields are moved into 
the field area in main storage when their display station becomes 
current and moved out of the field area when that display station is no 
longer current. These fields can be mode- level or session- level, but 
not mixed. 

Session -Level Fields 

Session-level display station fields retain their values when the 
operating mode changes. 

You can define session-level fields on the I -specifications and on the 
M -specifications. In addition, some of WSU's reserved fields are 
session -level fields. (See Chapter 3 for information on reserved fields 
and their uses.) 

Mode- Level Fields 

Mode- level display station fields are saved when the operating mode 
changes and then cleared to blanks or zeros for use during the new 
mode. 

Mode- level fields are not explicitly defined on a specification; rather, 
all fields that are neither session-level nor job-level become 
mode- level fields by default. In addition, some of WSU's reserved 
fields are mode- level fields. 

Job-Level Fields 

Each WSU program has one set of job- level fields. These fields do 
not move to and from the field area in main storage; instead, they 
remain in the field area and are available to any active display station. 

You can define job-level fields on the C-specification; their names 
must begin with an &. In addition, WSU's reserved date fields are 
job- level fields. 
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Display Station Local Data Area 

Each display station has a local data area that you can use in your 
program by defining it on the I -specifications and M -specifications. 
WSU then automatically reads a display station's local data area when 
the station signs on and updates the area when the station signs off. 
The Concepts and Programmer's Guide describes the local data area 
and its uses. 
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Chapter 3. Reserved Fields and Indicators 



This chapter provides information about: 

• Reserved Fields: Special fields provided by WSU 

• Indicators: Internal switches used to tell when certain operations 
are to be performed. 

Using Reserved Fields 

Reserved fields are special fields that are supplied by WSU for specific 
functions. These reserved fields are: 



UDATE-^ 

UDAY "^-^^^^ 

U MONTH Date fields 

UYEAR " 

•RLNO^. 
•SLNO \. 
♦ERROR 

•RLRU ^\ 

^Special WSU fields 

•RLRN 
•RLRR 
*USID 
•WSID 

•BLANK 



UDATE, UDAY, UMONTH, and UYEAR are job-level fields (fields that 
remain in the field area in main storage); *RLNO, *SLNO, *ERROR, 
and *RLRU are mode-level fields; *RLRN, *RLRR, *USID, and "WSID 
are session -level fields (fields that retain their value when the 
operating mode changes); and * BLANK is a special field that is used 
only with the MOVE operation. 

Do not begin *RLRN, *RLNO, *RLRU, *RLRR, *SLNO, *BLANK, 
*ERROR, *USID, or *WSID in column 7 of a continued line in a table 
of values since an asterisk (*) in column 7 indicates a comment line. 
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Date Fields 

When the WSU program is initialized, WSU records the following 
information in the date fields: 

• UDAY: Day 

• UMONTH: Month 

• UYEAR: Year 

• UDATE: Program date if a program date has been specified; 
system date if a program date has not been specified. 

You can use date fields: 

• As output fields on displays 

• In factor 1 or factor 2 for operations that allow numeric fields for 
these entries 

• In a table of values for a CO MP operation 

• As GET fields on an M -specification. 
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*RLNO 



*RLNO is a 6-byte numeric field that contains a relative record number 
and is a display station field. At job Initiation prior to any transaction 
file add operation, *RLNO can be used to calculate the number of 
records that can be added to the file. After job initiation or after the 
first add operation during job initiation, *RLNO can be used to record 
the relative record number of the next record to be added to the 
transaction file for each work session. 

At job initiation, *RLNO contains the largest reserved relative record 
number in the transaction file. Also, at work session initiation or 
whenever a record is added to the transaction file, *RLNO contains the 
relative record number of the next record to be added to the 
transaction file for the corresponding display station. This value will 
be different for each display station, depending on whether the display 
station is In enter mode or insert mode. If there is no transaction file, 
*RLNO contains zero during the program's running. In review mode, 
*RLNO is set to zero. 

You can code *RLNO in factor 1 or factor 2 of operations that allow 
numeric fields for these entries. *RLNO can also be in a table of 
values for a COMP operation or a GET field on an M -specification. 
*RLNO cannot be an input field on a D-specification, or a result field. 

*SLNO 

*SLNO is the reserved field that contains the variable starting line 
number of a display. The S-specifications for such displays have a V 
entered for the starting line number, 

*SLNO is a 2-byte numeric field with no decimal positions and is a 
display station field. This field has an initial value of 1 and assumes 
other values only as a direct result of C-specification processing. The 
contents of *SLNO are restored to their enter-mode value when the 
mode changes from review to enter. Other than this restoring, WSU 
does not change the contents of *SLNO, 

During WSU running, the work session ends abnormally if the sum of 
*SLNO and the maximum line number for the display is greater than 
24. The maximum line number is the larger of the number of lines to 
clear and the largest line number on the D-specification. 

*SLNO can be coded wherever a field name is allowed, except on 
I -specifications and D-specifications, Also, *SLNO can be used in 
any processing function. 
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*ERROR 



The 'ERROR reserved field is a 4-byte numeric field that contains a 

4-digit indication of errors that occur for transaction file operations 
(GETNR, GETNH, GETPR, GETPH, and PUT) and master file 
operations (GET, PUT, and PUTN). The *ERROR reserved field can 
be used to plan error recovery based on a specific error code. 

*ERROR is set to zero when a file operation occurs. If an error 
indicator has been coded in columns 61 and 62 of the T-specification 

or M -specification and an error occurs that causes this indicator to 
turn on, WSU places one of the following error codes in *ERROR: 

Code Meaning 

0004 An I/O error occurred for a GET operation. 

0005 A record-not-found error occurred but a not-found indicator 
was not coded. 

0006 The record key contains hex FF for a GET operation. 

0007 An I/O error occurred on a GET operation before a PUT 
operation. 

0008 A PUT operation for a file update occurred, but a successful 

GET operation did not come before it. 

0009 An I/O error occurred on a PUT operation. 

0012 An attempt was made to insert a transaction file header 
record with a PUT operation. 

0029 The transaction file was full for a GET operation that occurred 
before a PUT operation. 

0030 The transaction file record number exceeds 65,535. 

0033 The key of the record being updated by means of a PUT 

operation differs from the key of the record read by means of 
the previous GET operation. 

0041 The end of file has been reached on a PUTN operation. 

0042 The PUTN operation would duplicate an existing record key. 

0043 The PUT operation would duplicate an existing alternate 
record key. 

0044 An I/O error occurred for a PUTN operation. 

0056 The PUTN operation would duplicate an existing alternate 
record key. 

0057 The PUT operation would duplicate an existing record key. 

You can code * ERROR in factor 1 or factor 2 of operations that allow 
numeric fields for these entries. *ERROR can also be in a table of field 
names for a GOMP operation. 



3-4 IBM System/36 Work Station Utility Guide 



*RLRU 



*RLRU is a 6- byte numeric field that contains the relative record 
number for the most recent successful input operation performed on 
the transaction file for a C-specification operation (GETNR, GETNH, 
GETPR, GETPH). The initial value of the field is zero. 

You can code *RLRU in factor 1 or factor 2 of operations that allow 
numeric fields for these entries, or as a GET field on the 
M -specification. 

*RLRN 

*RLRN is a 6-byte numeric field that contains either the relative record 
number that an operator specified on the WSU display or the most 
recent value that the program placed in it. The contents of *RLRN are 
not set to zero when review mode begins. Also, the contents of 
•RLRN are not changed as records are reviewed by means of the Page 
Backward Group command key (Cmd 5) or the Page Forward Group 
command key (Cmd 6), or Page Backward Record (RolU ) or Page 
Forward Record (Roll t) function key. The contents of *RLRN are 
not destroyed at the end of a work session; they are passed to the next 
work session. 

You can code *RLRN in factor 1, factor 2, or the result field of 
operations that allow numeric fields for these entries. You can also 
code it as a GET field on an M -specification. 

*RLRR 

*RLRR is a 6-byte numeric field that contains the relative record 
number for the most recent successful input operation performed on 
the transaction file when a review function is requested by the 
operator. The initial value of the field is zero. 

You can code *RLRR in factor 1 or factor 2 of operations that allow 
numeric fields for these entries, or as a GET field on the 
M -specification. 
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*USID 



*USID is a 2-byte alphameric field that contains either: 

• Blanks for a new requester 

• The session ID entered by the operator on the WSU display 

• The session ID from the trailer of a WSU file data record or header 
record (after an I/O operation has been performed on the 
transaction file for a review request). 

The first byte must be alphabetic; the second byte must be alphameric. 

The contents of *USID are not destroyed at the end of a work session; 
they are passed to the next work session. 

You can code *USID in factor 1 , factor 2, or the result field of 
operations that allow alphameric fields for these entries. 

*WSID 

*WSID is the reserved field that contains the symbolic display station 
identifier. 

*WSID is a 2-character alphameric field that is set to the symbolic 
display station ID when the display station first signs on. 

You can code *WSID as factor 1 or factor 2 of a C-specification. 
*WSID cannot be used on D-specifications or I -specifications. 

*BLANK 

*BLANK can be used in factor 2 of the MOVE operation to set an 
alphameric result field to blanks. 
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INDICATORS 



An indicator is an internal switch designated by two characters (two 
letters, two digits, or a combination of a letter and a digit). Indicators 
can be used to control whether certain operations are performed. 

WSU automatically turns some of the indicators on and off to indicate 
the following conditions: 

• The current or a waiting processing level 

- IJ: Job initiation 

- IW: Work session initiation 

- ES: End of sequence set 

- EW: End of work session 

- EJ: End of job 

• The operating mode 

- RV: Review mode 

- IN: Insert mode 

- DL: Delete mode 

• The command key an operator pressed 

- KG: Command key 7 

- KH: Command key 8 

- Kl: Command key 9 

- KJ: Command key 10 

- KK: Command key 1 1 

- KL: Command key 1 2 

- KQ: Command key 1 6 

- KR: Command key 17 

- KS: Command key 18 

- KT: Command key 1 9 

- KU: Command key 20 

- KV: Command key 21 

- KW: Command key 22 

- KX: Command key 23 

- KY: Command key 24 

• A reviewed record from the same current group as the record 
being entered (CG) 

• A session restarted after an abnormal ending (RC) or after a record 
was logically deleted from the session chain being restarted (the 
transaction file might contain records which have been removed 
from the chain for the session) 

• A session restarted after normal ending (RS). 
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You can turn some of the WSU indicators on and off in your WSU 
program. These indicators are: 

AC (accept command key) Off only. 

AE (accept sequence error) You can set this 

indicator on to allow operators to use the 
Accept-Sequence- Error command key to bypass 
required displays. 

EJ (end of job) 

ES (end of sequence set) 

EW (end of work session) 

IS (initiate transaction sequence) Off only. 

JA-JN, JP-JY (job) 

KG-KU KQ-KY (command key) 

PG (program mode) 

RC (recovery of work session) 

RP (repeated display) 

RS (resume work session) 

SA-SN, SP-SY (session level) 

U1 -U8 (external) The operator can set these indicators 

on or off by means of the SWITCH OGL 
statement when the program is run or WSU sets 
them on or off when they are used as resulting 
indicators. 

01-89 (display station) 

Notice that the EJ, ES, EW, KG-KL, RC, RS, and KQ-KY indicators are 
in both categories, both WSU controlled and programmer controlled. 
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Job, Session, and Mode Indicators 

WSU maintains indicators for the job, for a session, and for an 
operating mode. 

Job Indicators 

The job indicators are: 

EJ (end-of-job processing level) Indicates the end 

of a WSU program. 

IJ (job-initiation processing level) Indicates the 

beginning of a WSU program. 

JA-JN, JP-JY (job) Provide session-to-session saving of 

indicator settings. 

As the following shows, WSU maintains one copy of these indicators 
for ail display stations using the same program. 




For example, if indicator JA is set on by a display station, that 
indicator is on for all other display stations that use the program. 
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Session Indicators 



The session indicators are: 

AE (accept sequence error) Allows operators to 

bypass required displays by means of the 
Accept-Sequence- Error command key. 

ES (end-of-sequence-set processing level) 

Indicates the end of the primary display 
sequence. 

EW (end-of-work-session processing level) 

Indicates the end of a work session. 

IW (work-session -initiation processing level) 

Indicates the start of a work session. 

RC (recovery of work session) Indicates when an 

operator resumes a work session that either 
ended abnormally or had records removed from 
the chain. The WSU program must have a 
transaction file in order for this indicator to be 
used. 

RS (resume work session) Indicates when an 

operator resumes a work session that ended 
normally. The WSU program must have a 
transaction file in order for this indicator to be 
used. 

SA-SN, SP-SY (session level) Provide mode-to-mode saving of 
indicator settings. 

U1-U8 (external) Provide a way of passing indicator 

settings from the OCL that starts the WSU 
program to a session. 
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As the following shows, WSU maintains a separate copy of these 
indicators for each display station using the same program. These 
indicators retain their settings when a display station changes from 
one operating mode to another. 




For example, if indicator SA is set on by a display station, the indicator 
is on only for that display station. Other display stations that use the 
program might have indicator SA set off or set on. 
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Mode Indicators 



The mode indicators are: 

AC (accept command key) Signals the condition of 

any current user-defined command key request. 

CG (current group) Indicates that the transaction 

file record selected by the operator for review is 
either the most recently entered header record or 
a data record that follows the most recently 
entered header record. 

DL (delete record) Indicates that the transaction file 

record selected by the operator for review is a 
record that is to be logically deleted when the 
processing cycle ends. 

IN (insert mode) Indicates the insert operating 

mode. 

IP (input to process) Signals operations which 

should be performed only when there could be 
some data fields input from the display. 

IS (initiate transaction sequence) Signals the start 

of a new function request. 

KG-KL, KQ-KY (command key) Indicate which user-defined 
command key an operator presses. 

PG (program mode) Temporarily prevents 

operator- initiated changes in transaction file 
content or display sequence. 

RP (repeated display) Indicates that a display has 

reappeared because of an MSG operation. 

RR (review record) Signals an on -going review or 

delete function request. 

RU (rover update) Determines if the PUT operation 

with no record identifying indicator can be 
successfully run for the transaction file. 

RV (review mode) Indicates the review operating 

mode. This indicator is also on during insert 
mode. 

01-89 Provide general indicator use in a program; for 

example, indicate when operations should 
occur, indicate results of operations, and specify 
field attributes for a display. Indicators 90 
through 99 are reserved for WSU and cannot be 
used in your WSU programs. 
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As the following shows, WSU maintains a separate copy of these 
indicators for enter mode and review/insert/delete mode. 



Enter 


Review/lnsert/Delete 


Session 
indicators 


Mode indicators 



J 



Enter 


Review/lnsert/Delete 


Session 
indicators 


Mode indicators 





wsu 

program 




Job 

indicators 



Enter 


Review/lnsert/Delete 


Session 
indicators 


Mode indicators 



For example, if indicator 1 0 is set on by a display station in enter 
mode, that indicator is on only for that mode. When the operating 
mode changes, the indicator settings for enter mode are saved, and 
the mode indicators are cleared and adjusted for review mode. 

The indicators for enter mode are restored when enter mode resumes. 
The mode indicators are cleared and adjusted whenever review mode 
is reset (for example, repeated use of the Roll Up and Roll Down keys 
causes review mode to be reset for each press of a key) . 

Figure 3-1 is a summary of the job, session, and mode indicators. 
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Initial Settings of Indicators 



For the first operator that calls a WSU-generated procedure, all 
indicators are off except IJ, IW, any external indicators (U1 through 
U8) that have been set on, and RS and/or RC if operators had 
previously run the program and used the transaction file. 

For operators that call that same procedure later, all indicators are off 
except for the IW indicator, any external indicators that have been set 
on, any job indicators that have been set on by other display stations 
that have called the procedure, and the RS and/or RC indicators. 



Job 

Session 
Mode 
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WW WW 1 LI wllvVI 
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JA-JN, JP-JY 
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AC 


CG (off during enter mode) 


IP 


DL (off during enter mode) 


IS 


IN (off during enter mode) 


KG-KL, KQ-KY 


IP 


PG 


KG-KL, KQ-KY 


RP 


PG 


01-89 


RP 




RR 




RU 




RV (off during enter mode) 




IS 





Figure 3-1. Indicator Summary 

The following explains each of these indicators. 
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AC (Accept Command Key) Indicator 

Set on by: WSU, when processing for a display is started again with 
new user command key settings, that is, with one and only one of the 
user command key indicators (KG-KL, KQ-KY) set on. 

Set off by: 

• WSU, when the command key indicators are cleared 

• User, with a SETOF operation, to signal that no command key 
request is still waiting. 

This indicator may be left on to condition later operations which 
should or should not be run depending on what request has just been 
handled. When the AC indicator is set off, the program can skip code 
which checks each command key individually. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 

AE (Accept Sequence Error) Indicator 

Set on by: 

• The SETON, MSG, or IMSG operation 

• Results of an arithmetic or compare operation. 
Set off by: 

• The SETOF operation 

• Results of an arithmetic or compare operation. 

When on, this indicator allows operators to bypass sequence errors by 
pressing the Accept-Sequence- Error command key (Cmd 13). (A 
sequence error occurs when an operator tries to bypass a required 
display or ES processing.) When off, this indicator causes an error 
message when operators try to bypass a required display or ES 
processing. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 
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CG (Current Group) Indicator 



Set on by: WSU, when a transaction file record that has been selected 
by an operator for review is either the most recently entered header 
record or a data record that follows the most recently entered header 

record. 

Set off by. 

• WSU, when a transaction file record that has been selected by an 
operator for review is from a different group than the most recently 
entered record. 

• WSU, when an operator switches from review mode to enter 
mode. 

Wtiere coded: Conditioning Indicators on C-specifications. 

DL (Delete Mode) Indicator 

Set on by: WSU (along with the RV indicator), when an operator 
selects delete mode. Refer to Review Mode in Chapter 2 for an 
explanation of how an operator can select delete mode. 

Set off by: WSU, when an operator returns to enter mode (by means 
of the Resume Entry command key); when enter mode resumes as a 
result of ES, EJ, or EW being set on; or when an operator selects a 
record to review. 

Where coded: Conditioning Indicators on C-specifications. 
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EJ (End of Job Processing Level) Indicator 

Set on by. 

• WSU, when both of the following conditions exist: 

- EW processing is completed when only one operator is using 
the program and that operator has specified end of work 
session on the WSU display 

- The program is a never-ending program (NEP) and the 
operator has not specified restart on the WSU display. 

• WSU, when any abnormal-ending condition occurs 

• A SETON, MSG, or I MSG operation 

• Results of an arithmetic or compare operation. 
Set off by: 

• WSU, when all operations conditioned by the EJ indicators 
complete 

• Results of an arithmetic or compare operation 

• A SETOF operation. 
Wfiere coded: 

• Format ID on an S-specification 

• Processing Function, Conditioning Indicators, and Resulting 
Indicators on C-specifications. 
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ES (End of Sequence Set Processing Level) Indicator 



The ES indicator can be used to cause operations to be performed at 
the end of a sequence of displays. Typically, these operations might 
be used to perform clean up functions needed before later operations 
or to inform the operator (by means of the IMSG operation) that the 
display sequence has been completed and the next display will be the 
first of the sequence set. 

Set on by: 

• WSU, each time, except the first, when the first display in the 
primary sequence is next to appear. ES does not turn on for 
secondary display sequences 

• WSU, when the EW or EJ indicator turns on (except during ES 
processing) 

• A SETON, MSG, or IMSG operation 

• Results of an arithmetic or compare operation. 
Set off by: 

• WSU, when all operations conditioned by the ES indicator are 
complete and neither the EW indicator nor the EJ indicator is on 

• Results of an arithmetic or compare operation 

• A SETOF operation. 

Where coded: Processing Function, Conditioning Indicators, and 
Resulting Indicators on C-specifications. 

Setting the ES indicator on when no ES processing is present in a 
WSU program causes WSU to select the first display in the primary 
sequence, if present in the program, ES processing is performed even 
if the primary sequence is not started before the session ends. 
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EW (End of Work Session Processing Level) Indicator 

Set on by. 

• WSU, when an operator specifies EW on the WSU display or 
selects a session 

• WSU, when the EJ indicator turns on 

• A SETON, MSG, or IMSG operation 

• Results of an arithmetic or compare operation. 
Set off by: 

• Results of an arithmetic or compare operation 

• A SETOF operation. 

Note: The SETOF operation cannot be used to cancel a previous 
end session or end job request. 

Where coded: 

• Format ID on an S-specification 

• Processing Function, Conditioning Indicators, and Resulting 
Indicators on C-specifications. 

Note: If the EW indicator is used to force an end of session for an 
operator at a display station with an ID that does not match the work 
session ID, that operator is allowed to restart by selecting a different 
session. 

IJ (Job Initiation Processing Level) Indicator 

Set on by: WSU, when the first operator starts the WSU program. 
Set off by: 

• WSU, when all operations conditioned by the IJ indicator are 
complete 

• WSU, when the next display in a different processing function is 
displayed (normally, this is the IW display). 

Where coded: 

• Format ID on an S-specification 

• Processing Function and Conditioning Indicators on 
C-specifications. 
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IN (Insert Mode) Indicator 

Set on by: WSU, when an operator selects Insert mode by means of 
the Insert Record command key. 

Set off by: WSU, when the mode switches to enter or review. 
Where coded: Conditioning indicators on C-specifications. 

IP (Input to Process) Indicator 

Set on by: WSU, when a user response is accepted and input data 
has been returned to the program. 

Set off by: 

• WSU, when the next user response (PUTS/MSG/I MSG) is 
accepted 

• User, with a SETOF operation. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 

IS (Initiate Transaction Sequence) Indicator 

Set on by: 

• WSU, when a display is automatically selected to start a program 
defined sequence for a new request such as: 

- Selection of the first display for a session. Sign on at a work 
station or session selection from the WSU display is 
considered to be a request to begin entering records 

- Selection of the first display for a review or review/delete 
request 

- Selection of the first display for a begin insert request. 



Set off by: 

• User, with a SETOF operation: 

- To condition operations which should be done, but done only 
once as mode is set or reset 

- To begin data entry 

- To begin review of a record selected by the operator 

- To begin inserting records after a record being reviewed by the 
operator. 



The user may assume that a transaction file record has been read 
when the IS indicator is set on in review mode to signal the start of a 
review functions sequence. However, the user must provide his own 
loop control for initializing fields when adding a chain of records for a 
started entry or insert function sequence, or when using GET/PUT 
operations (with no record ID) in a record updating loop inside a 
WSU sequence. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 
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IW (Work Session Initiation Processing Level) Indicator 

Set on by: 

• WSU, after all operations conditioned by the IJ indicator are 
completed (for only the first operator that begins the WSU 
program) 

• WSU, when any operator after the first operator begins the WSU 
program. 

Set off by: 

• WSU, when ail operations conditioned by the IW indicator are 
completed 

• WSU, when the next display in a different processing level is 
displayed (normally, this is the first display in the primary 
sequence). 

Where coded: 

• Format ID on an S-specification 

• Processing Function and Conditioning Indicators on 
C-specifications. 

JA'JN, JP-JY (Job) Indicators 

Set on by: 

• A SETON, MSG, or IMSG operation 

• Results of an arithmetic or compare operation. 
Set off by: 

• Results of an arithmetic or compare operation 

• A SETOF operation. 

Wfiere coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 
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KG'KL KQ'KY (Command Key) Indicators 



The KG-KL and KQ-KY indicators are user command keys; WSU uses 
command keys 1 through 6 and 13 through 15. 

Set on by: 

• A SETON, MSG, or IMSG operation. 

• Results of an arithmetic or compare operation. 

• WSU, when an operator presses the corresponding command key. 
WSU turns all other command key indicators off. The command 
keys and indicators are: 

- KG: Command key 7 

- KH: Command key 8 

- Kl: Command key 9 

- KJ: Command key 10 

- KK: Command key 11 

- KL: Command key 12 

- KQ: Command key 1 6 

- KR: Command key 17 

- KS: Command key 18 

- KT: Command key 1 9 

- KU: Command key 20 

- KV: Command key 21 

- KW: Command key 22 

- KX: Command key 23 

- KY: Command key 24 



Set off by: 

• WSU, when a display is shown that has Reset Keyboard specified 
(Also, WSU sets all command key indicators off when a display is 
shown by means of the IMSG or MSG operation). 

• Results of an arithmetic or compare operation. 

• A SETOF operation. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 
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PG (Program Mode) Indicator 



Set on by: WSU, when an operator tries to bypass the current display 
or to select a record to review/deiete/insert. 

Set off by: 

• WSU, when the processing for a display is ended (no PUTS 
operation run to select the next display and no C-specification to 
run for the current display) 

• WSU, when an operator EW indicator or session selection is 
accepted from the WSU display 

• User, when the lock provided by the PG indicator for the display 
sequence or the transaction file is no longer required. 

When the PG indicator is on, an error message is issued if the operator 
tries to bypass the current display or to select a record to 
review/delete/ insert. When the PG indicator is on, the operator can 
still request functions by means of enabled user-defined command 
keys or WSU keys 1, 3, or 13, and can still use the WSU display. The 
PG indicator can be used to condition operations. 

Where coded: Conditioning Indicators on C-specifications. 
RC (Recovery of Work Session) Indicator 

Set on by: 

• WSU, when an operator resumes a work session that had been 
abnormally ended 

• WSU, when the transaction file might contain records which are 
removed from the chain for the session. 

Set off by: A SETOF operation. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. In order to use this indicator, a WSU program must 
have a transaction file. 

Note: Once on, this indicator is always on for the session unless a 
SETOF operation turns the indicator off. The indicator turns on each 
time the session is restarted until the WSU Recover procedure or the 
WSU Extract procedure is used to produce a transaction file that has 
no records which have been removed from the chain for the work 
session. 
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RP (Repeated Display) Indicator 

Set on by. WSU, when a MSG operation causes a display to 
reappear. 

Set off by. 

• WSU, when a new display is selected in one of the following 
ways: 

- WSU selects an appropriate display because: 

— Display processing ends normally. 

— You bypass a display using the Bypass Display command 

key (Cmd 2). 

— You select an alternative function (RV, DL, or IN). 

- You select a nonhelp display from the WSU display. (When 
the RV indicator is on, you can select the current display 
again.) 

- A PUTS operation selects: 

— A different keyboard-resetting display. (A help display 
resets the keyboard). 

— A display again without processing. 



• User, when coding loops containing both MSG operations, for 
which WSU sets on the RP indicator, and preprocessing PUTS 
operations which should be conditioned on NRP. 

Where coded: Conditioning Indicators on C-specifications. 

Notes: 

1. The RP indicator setting is not changed when processing for a 
current display resumes at the C-specification entry that follows a 
preprocessing PUTS operation. 

2. Because RP is a mode level indicator, the enter mode setting is 
restored when enter mode is resumed. 
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RR (Review Record) Indicator 

Set on by: WSU, after reading and retrieving data fields from a 
transaction file record selected for review by the operator. 

Set off by: WSU, when the IN indicator is set on. 

The RR indicator can be used in conjunction with the IS indicator to 
condition operations which should be done to prepare for displaying 
or updating an operator selected record or to adjust for a new current 
review record. 

The RR indicator can be regarded as a signal that performing of a PUT 
operation coded with a record type identifier will result in the 

replacement of the current review record. Any 
GET-before-PUT-required operation is done automatically by WSU. 

The RR indicator can also be used as a signal that the current relative 
record number can be found in *RLRR instead of "RLNO. 

Where coded: Conditioning Indicators on C-specifications. 
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RS (Resume Work Session) Indicator 



Set on by. WSU, when an operator resumes a work session. 
Set off by. A SETOF operation. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. In order to use this indicator, a WSU program must 
have a transaction file. 

Note: Once on, this indicator is always on for a session until a 
SETOF operation turns the Indicator off. 

RU (Rover Update) Indicator 

Set on by. WSU, when *RLRU Is updated after a successful GET 
operation. 

Set off by. WSU, when a GETNR/GETNH/GETPH operation is 
attempted, a review request is accepted, enter mode is resumed, or a 
transaction file PUT operation with no record type indicator Is 
attempted. 

RU may be used to condition running of a PUT operation which could 
cause the program to have an abnormal end with a 
GET-before-PUT-requlred error code. 

Where coded: Conditioning Indicators on C-speclficatlons. 
RV (Review Mode) Indicator 

Set on by: WSU, when an operator selects review or delete mode. 
Refer to Chapter 2 for an explanation of how an operator can select 
review mode. The RV Indicator remains on during Insert mode. 

Set off by: WSU, when an operator returns to enter mode (by means 
of the Resume Entry command key), or when enter mode resumes as a 
result of ES, EJ, or EW being set on. 

Where coded: Conditioning Indicators on C-speclfications. 
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SASN, SP-SY (Session Level) Indicators 



Set on by: 

• A SETON, MSG, or IMSG operation. 

• Results of an operation. 
Set off by: 

• A SETOF operation. 

• Results of an arithmetic or compare operation. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 

UJ through U8 (External) Indicators 

U1 through U8 are indicators accessed by each requesting display 
station at the initiation of a work session and saved by WSU at the 
normal end of a work session. Because the indicators are saved, they 
can be used to pass information from session to session. These 
indicators are not saved if the work session ends abnormally. 

Set on by: 

• A SWITCH OCL statement entered by an operator or entered as 
part of a procedure which is not an MRT procedure. 

• A SETON, MSG, or IMSG operation. 

• Results of an arithmetic or compare operation. 
Set off by: 

• A SWITCH OCL statement entered by an operator or performed 
from a procedure which is not an MRT procedure (see note). 

• Results of an arithmetic or compare operation. 

• A SETOF operation. 

• The WSU Extract, WSU Create, or WSU Recover procedure when 
that procedure begins running. 

Where coded: Conditioning Indicators and Resulting Indicators on 
C-specifications. 

Note: The procedure that WSU generates to call a WSU program is 
an MRT procedure. When an MRT procedure is first requested, the 
SSP copies that requester's external switches into an area associated 
with the MRT procedure. OCL statements within the MRT procedure 
access this copy. A SWITCH OCL statement within the 
WSU -generated procedure does not change the external switch 
setting associated with the first requester, but instead changes the 
copy of those switches. 

Changes made to the external switches from within the program affect 
the requesting display station's external switches rather than the copy 
of the switches. 
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01 through 89 Indicators 



Set on by: 

• WSU, when the indicator is used to identify a record type and 
when that type of record is read from the file. 

• WSU, when the indicator has been coded in columns 49 and 50 
(Not- Found Indicator) of the T-specification or an 

M -specification, and when a record to be read cannot be found in 
the file. 

• WSU, when an error occurs for a GETNR, GETNH, GETPR, 
GETPH, GET, PUT, or PUTN operation and the indicator has been 
coded in columns 61 and 62 (Error Indicator) of the 
T-specification or M -specification. 

• A SETON, MSG, or IMSG operation. 

• Results of an arithmetic or compare operation. 
Set off by: 

• WSU, when the indicator is used to identify a record type and 
when a different type of record is read from the same file. 

• Results of an arithmetic or compare operation. 

• A SETOF operation. 

• WSU, each time a record is selected for review. 
Where coded: 

• Record Identifying Indicator on I -specifications. 

• Not- Found Indicator, Header Record Identifying Indicator, and 
Error Indicator on the T-specification. 

• Not- Found Indicator and Error Indicator on M -specifications. 

• Format ID, Sound Alarm, Null Fill, Blink Cursor, Review Mode, 
and Insert Mode Record Identifying Indicators on S-specifications. 

• Output Data, Position Cursor, Protect Field, High Intensity, Blink 
Field, Nondisplay, Reverse Image, and Underline on 

D-specifications. 

• Conditioning Indicators and Resulting Indicators on 
C-specifications. 
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Notes: 



1 . WSU does not automatically place a record identification code 
into a record when you write the record with a PUT operation. If 
you want to write a code in each record, define a field for the 
code on the I -specification, then move a value into this field. 

2. AND/OR and Record Identification Codes should be blank if there 
is only one record type in the file, or if you want all record types 
processed the same way. 

3. If the program is to be used with the WSU Create procedure 
(WSUTXCR) to build a transaction file, blank records must not 
satisfy any of the record types; otherwise, blank records in your file 
will be tagged as data records, and your file will be full before you 
start. 

Figure 3-2 summarizes where to code indicators. 
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WSU turns this indicator off when a read is attempted from the file. 
WSU turns this indicator on when the record type is read from the file. 
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Columns 49 and 50: 



Columns 55 and 56: 



Columns 61 and 62: 



WSU turns the indicator on when a record 
cannot be read or a record has been read but 
not identified. 

The indicator must identify a record type in the 
transaction file. This indicator allows operators 
to page from header record to header record 
when reviewing records. 

This indicator turns off each time a GET 
operation is done for the file, and turns on if an 
error occurs in trying to read from the file, or 
if a record-not-found condition occurs and a 
not-found indicator has been omitted from the 
T- or M -specification, and from the 
C-specification. 



Figure 3-2 (Part 1 of 3). Where to Code Indicators 
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Display Control Specification 




Columns 15 and 16: These indicators cause displays to 

automatically appear for a processing level. 

Columns 25 and 26, 29 and 30, 37 and 38: 

These indicators control display 
attributes. 

Columns 48 through 59: These indicators allow control of how 

operators use review and insert modes and 
must match record identifying indicators 
in the transaction file. 



Field Definition Specification 



B 

Sequence 
Number 

1 2 3 4 5 


1 o> Specification Type I 


WSU 

Field Name 


WSU Arrays 


Starting 
Location 


; ^ Output Data 


K Edit Code (WSU Only) | 


Ig Input Allowed 1 


5 Data Type | 


S Mandatory Fill I 


1 S Mandatory Entry J 


iS Self-Check 1 


It; Adjust/Fill 1 


a 

c 
q 

33 33 


K Enable Dup 1 


S Controlled Field Exit 1 


^ Auto Record Advance 1 


^ Protect Field 


2 High Intensity 


\Z Blink Field 


Cl 

'S 

o 
z 

43 4) 


'2 Reverse 1 mage 


i Underline 


g Column Separators | 


S Reserved 1 


2 Lowercase | 


Reserved 
52 53 54 55 


S Constant Type | 


Constant Data 


1 o 1 Continuation | 


Elements per 
Row or Column 


iFill Direction 1 


[Line Skip Factor | 


Horizontal Positions 
Space Factor 


[ w Line Number 


\Z Horizontal Position 


Field Name 

7 8 91011121314 


Field 
Length 
15 16 17 18 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 
67 58 69 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 
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These indicators control attributes of data on the display. 
Figure 3-2 (Part 2 of 3). Where to Code Indicators 



Reserved Fields and Indicators 3-31 




Columns 7 and 8: 

Columns 10 through 17: 
Columns 54 through 59: 



These indicators cause operations to occur for 
certain processing levels. 

These indicators condition operations. 

Figure 17-5 in Chapter 17 shows how these 
indicators can be used with WSU operations. 



Figure 3-2 (Part 3 of 3). Where to Code Indicators 
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Chapter 4. Coding Files 



This chapter provides information about: 

• Transaction and master files: Collections of information used by 
WSU. 

• File processing utilities: Utilities used to process WSU transaction 
files and non-WSU files. 

• Trailers: 13 bytes of information used by WSU to chain records. 

• File definition coding: F- and I -specifications used for coding 
WSU programs. 

• File coding: WSU J-, T-, and M -specifications used for coding 
WSU programs. 

WSU Files 



Master Files 

A WSU program can read from and write to as many as 20 master 
files. 

With Distributed Data Management (DDM), WSU programs on the 
local system may use master files that are on a remote system. Refer 
to Appendix B for a brief description of DDM. 

Master files can be direct files (in which records are assigned specific 
record positions) or inde;ted files (in which the position of the record 
is recorded in an index). 

WSU supports alternative indexes for direct and indexed master files. 
Coding WSU for an alternative indexed master file is exactly the same 
as for any other indexed master file. Remember, if the index contains 
duplicate keys, WSU will only access the first occurrence of the key. 
To create the alternative indexes, you must use the BLDINDEX 
procedure. Refer to the SI36 System Reference Manua/,SC2^ -9020, 
for an explanation. For more information on alternative indexes, see 
the Concepts and Programmer's Guide, SC21 -901 9. 

WSU also supports non-contiguous keys for alternative indexed 
master files. Coding WSU for a non-contiguous keyed master file is 
exactly the same as for other alternative indexed files except for the 
F-specification. Refer to Chapter 12 for an explanation. To specify 
non-contiguous keys when creating an alternative indexed file, you 
must use parameters on the BLDINDEX procedure. Refer to the S/36 
System Reference Manual, SC21 -9020, for an explanation. 

WSU requires an F-specification and I -specifications that describe 
each master file. Refer to File Definition Coding in this chapter for 
information on coding master files. 
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The F-specification indicates the physical characteristics of the file (for 
example, record length and key length) as well as the type of 
organization (indexed or direct). The l-specifications describe the 
type and size of fields within the file as well as the type(s) of records 
in the file. 

You can code the following operations to read records from and write 
records to a master file: 

• GET (for reading records) 

• PUT (for changing records) 

• PUTN (for adding records to a master file). 

Refer to Chapter 1 8, Operation Codes, for a description of these and 
other operations. 

Sharing Master Files 

A master file can be shared by two or more WSU programs. 
Modifying a WSU -Generated Procedure in Chapter 8 describes how 
you indicate a shared master file. 

A WSU program that updates a shared master file should not have any 
of the following operations coded between reading a record (GET) 
and updating that record (PUT): 

• PUTS 

• MSG 

• IMSG 

• GET from another file. 

This is because protection is removed from the original record read 
when one of these operations occurs. Another program might read 
and update the record before this program updates it. Operations are 
covered in Chapters 7 and 1 7. 

A master file can be changed by two or more display stations using 
the same WSU program. In this situation, WSU automatically protects 
the records so that they are updated correctly. 

Transaction Files 

One of the main functions of a WSU program is to allow records to be 
added to or changed in a transaction file. WSU manages the 
transaction file automatically so that records can be added or changed 
easily. The transaction file is always a direct file, and its records are 
separated logically according to the work session for which they were 
entered. WSU protects the file so that records entered for one work 
session cannot be read or modified from another work session. 

Not all WSU programs use transaction files, but when used, the 
transaction file should be unique to each WSU program. 

Distributed Data Management (DDM) lets WSU use a remote 
transaction file. 
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WSU requires an F-(file description) specification and I- (input) 
specifications that describe the transaction file. Refer to File 
Definition Coding in this chapter for ways that these specifications 
can be stored. This chapter also contains an explanation of the 
required entries to the F- and I -specifications. 

The transaction file is a direct file to WSU, regardless of your entries 
on the F-specifications. The format of records written to the 
transaction file is defined on the I -specifications. 

At first, the transaction file contains blank records. The first record in 
the file is a job-control record. WSU creates this record before 
creating the first session chain. The first record in each session chain 
is a work-session-control record. See Trailers in this chapter for a 
discussion of transaction file trailers. As operators enter data, WSU 
replaces blank records with data. As it writes a record to the file, 
WSU reserves an area for the next record in the chain (either the chain 
of work-session-control records or the chain of header and data 
records for a work session). The last record entered in the chain 
points to the area where the next record will be written. 

WSU maintains a reserved field, *RLNO, that keeps track of records in 
the transaction file. *RLNO contains the relative record number of the 
next record to be written to the transaction file. You can reference this 
field in your program if you need the information that it contains. If 
the transaction file is not defined in a WSU program, *RLNO is zero 
during the program's running. Refer to Chapter 3, Reserved Fields 
and Indicators, for more information on *RLNO. 

Writing Records to and Reading Records from the Transaction File 



WSU does not automatically write records to the transaction file. You 
must code operations to write to and read from the transaction file. 

These operations (described in Chapter 18) are: 



Operation 


Explanation 


PUT 


Adds a record to the transaction file or changes the 
record just read. 


GETPR 


Reads the previous record from the transaction file. 


GETPH 


Reads the previous header record from the transaction 
file. 


GETNR 


Reads the next record from the transaction file. 


GETNH 


Reads the next header record from the transaction file. 



Notes: 

1 . Next record and previous record in the descriptions of the 
operations are relative to the last record that was read for the 
session. GET operations in a program are not always related to 
the record on the display. 

2. WSU will not read beyond the beginning or end of the chain of 
records for the current work session. Instead, a record-not-found 
condition occurs. 

3. If a transaction file is not defined in a WSU program, the GETPR, 
GETPH, GETNR, and GETNH operations cause terminal errors 
during program generation. 
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Removing Trailers and Control Records from the Transaction File 

One way to remove trailers and control records from a transaction file 
is to use the WSU Extract (WSUTX EX) procedure. This procedure is 
described in Chapter 1 9, F//e Procew//75r /'/'oce(/t//'e5. 

Another way to remove trailers and control records is to use SUBR22, 
a subroutine that is provided by RPG II. Refer to the manual. 
Programming with RPG II, for a description of SUBR22, 

Recovering a Transaction File 

The WSU Recover procedure (WSUTXRV) can be used to recover a 
transaction file. This recovery is usually necessary after a WSU 
session or WSU program ends abnormally. The procedure can be 
used to drop problem-causing records from the file or to recover 
records that were lost when the abnormal end occurred. This 
procedure is described in Chapter 19. 
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File Processing Procedures 

WSU supplies procedures with which you can perform the following 
processing activities on transaction files: 

• With files: 

- Prepare a WSU transaction file for use by a non-WSU program 
WSUTXEX procedures or RPG SUBR22 subroutine) 

- Create a WSU file from a non-WSU file (WSUTXCR 
procedure) 

- Concatenate several transaction files (WSUTXEX, WSUTXCR 
procedures) 

- Recover a WSU transaction file (WSUTXRV procedure). 

• With records: 

- Remove blank records (WSUTXEX procedure) 

- Create one record chain from several record chains 
(WSUTXEX, WSUTXCR procedures) 

- Reorder or exclude record chains (WSUTXEX, WSUTXCR 

procedures) 

- Reclaim partially inserted records (WSUTXRV procedure) 

- Remove partially inserted and logically deleted records 
(WSUTXRV procedure or WSUTXEX, WSUTXCR procedures) 

- Print relative record numbers (WSUTXEX procedure). 



Refer to Chapter 1 9, File Processing Procedures, for a further 
discussion of the WSU procedures. 

Typical Uses of the WSU Procedures 

The following paragraphs describe some typical uses of the WSU 
procedures. 

Prepare a WSU Transaction File for Use by a Non-WSU Program 

You can prepare a WSU transaction file for use by a non-WSU 
program in any of the following ways: 

• Use the WSUTXEX procedure to extract records in logical order 
from the WSU transaction file. 

• Use the WSUTXEX procedure to extract only data records from the 
WSU transaction file. 

• Use the WSUTXEX procedure to copy the WSU transaction file 
and remove trailers from its records. 
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Remove Blank Records 



The WSUTXEX procedure can extract and print nonblank records from 
a WSU transaction file. This function is useful for removing the blank 
records that WSU leaves in its transaction files and increasing the 
number of available records in the file. 

Create One Record Chain from Multiple Record Chains 

The WSUTXEX procedure and the WSUTXCR procedure can extract 
one or more record chains, create a WSU transaction file from them, 
and assign the same display station ID to ail of the records in the new 
file. WSU only allows a display station to review records for the 
session that is currently active for the display station. Therefore, these 
procedures are useful when you need an efficient way to view multiple 
chains from one display station. 

To temporarily change a transaction file to assign the same display 
station ID to all the records requires that the file provide extra space 
for a new trailer for the extracted records. The display station ID is 
assigned in the new trailer. Because of the longer record length, a 
different WSU program is required to review the records. The extra 
space can be removed from the records when the changed transaction 
file is no longer needed, which results in a file that can be processed 
(or created again for processing) by the original WSU program. 

Print Relative Record Numbers 

The WSUTXEX procedure can select and print records for a work 
session in logical order. The relative number of each record is printed. 
The WSU display allows an operator to review a record by entering its 
relative record number. 

Create a WSU File from a Non-WSU File 

The WSUTXCR procedure can create a WSU transaction file from a 
non-WSU file. This function is useful if the initial data entry is done 
using a non-WSU program and you want to convert the file to a WSU 
transaction file so that it can be maintained interactively by a WSU 
program. 

Reorder or Exclude Record Chains 

The logical order of the session chains in a WSU file is the order in 
which the work-session-control records are in the file. 
The WSUTXEX and WSUTXCR procedures are useful for putting the 
session chains in another order (for example, by display station ID 

W1, W2 ) or for excluding unwanted chains. The WSUTXEX 

procedure can extract session chains in a specified order (collecting 
the records into a single file) and the WSUTXCR procedure can create 
a WSU transaction file from them. 

Concatenate Multiple Transaction Files 

The WSUTXEX procedure can collect records from multiple WSU 
transaction files into a single file and from them the WSUTXCR 
procedure can create one WSU transaction file on the disk. A WSU 
program can create multiple files, for example, if it is run on more than 
one System/36 or if it is run on different days on the same System/36. 
The WSUTXEX and WSUTXCR procedures are useful to put the data 
back into one file. 
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Reclaim or Remove Partially Inserted Records 

The WSUTXRV procedure can reclaim or remove partially inserted 
records from a VVSU transaction file. Records that were being inserted 
when the WSU program ended abnormally become partially inserted 
because the pointers in their trailers are not correct. These records can 
cause errors when WSU tries to reuse them as blank chain records. 
The WSUTXRV procedure is useful for reclaiming or removing those 
records before they confuse an operator. 

Remove Partially Inserted and Logically Deleted Records 

The WSUTXRV procedure or the WSUTXEX procedure in conjunction 
with the WSUTXCR procedure can be used to delete partially inserted 
and logically deleted (unchained) records from a WSU transaction file. 
Partially inserted and logically deleted records should be removed from 
a WSU file to improve program performance. When there are no 
partially inserted or logically deleted records in a file, WSU can access 
a record that is requested by the relative record number if the record 
has the current work session ID in the trailer. Otherwise, WSU must 
scan the session chain for the selected record to ensure that access 
can be allowed. 

Recover a WSU Transaction File 

The WSUTXRV procedure can recover a WSU transaction file. A 
transaction file in need of recovery can produce the following 
symptoms: 

• The WSU program that uses it cannot be initialized. 

• A work session cannot be resumed. 

• A new work session cannot begin. 

• Data records cannot be added from a current work session. 

• The job or a session ends abnormally when an unidentified record 
is encountered. 
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Trailers 



All data records and control records in a WSU transaction file contain 
13 bytes of trailer information at the end of each record. Trailers 
contain information that WSU uses to chain records together for each 
distinct work session. WSU allows logical insertion and deletion of 
records within each chain and prevents more than one display station 
at a time from accessing records that are entered for a session. 

Figure 4-1 shows the logical organization of the transaction file. 
Because several display stations can enter input to a program at the 
same time, records from the various work sessions become mixed in 
the file. WSU uses the last 1 3 bytes of each record for control 
information (the trailer). Trailers allow WSU to access the transaction 
file as separate chains of records, one chain per work session. The 
record length on the F-specification that describes the transaction file 
must include 13 bytes for the trailer. 



Where the next detail 
or header record goes 



Where the next 
work session control 
record goes 




Figure 4-1. Logical Organization of the Transaction File 

Each display station has a 2-character symbolic identifier (such as 
W1 ). When an operator runs a WSU program, this identifier is used as 
a work session identifier and is included in the trailer of each record 
added to the transaction file during the work session. If the display 
station is authorized (by the WSU program) to allow the operator to 
select a different work session after the WSU program has started, the 
work session identifier of records added to the transaction file can be 
different than the work station identifier. This is because the work 
session identifier in the trailer always matches the identifier of the 
work session the operator is using. 

Figure 4-2 shows the contents of the 13-byte trailers in the 
transaction file's job control, work session control, and data records. 
All pointers in the transaction file are 2- byte, binary relative record 
numbers (relative to zero). If the transaction file is read in an RPG II 
program without using the RPG II subroutine SUBR22, add one to 
each pointer to obtain an actual relative record number. 
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13-Byte Trailer 



I User 


Field 1 


Field 2 


Field 3 


Field 4 


Field 5 


Field 6 


Field 7 


1 Portion 


(2 bytes) 


(2 bytes) 


(2 bytes) 


(2 bytes) 


(2 bytes) 


(2 bytes) 


(1 byte) 



Job Control 
Record 



Field 


1: 


Field 


2: 


Field 


3: 


Field 


4: 


Field 


5: 


Field 


6. 


Field 


7- 



Work Session 
Control Record 



Data Record 



7 



User Portion: Not used (hex 40s) 

Largest relative record number allocated in the file 

Point (relative record number) to the first work session control record (hex 0001) 
Not used (hex 0000) 
Not used (hex 0000) 
Not used (hex 0000) 
Not used (hex 0000) 

Hex F1 : Previous execution of this job ended normally 

Hex F2: Previous execution of this job ended abnormally or the job is running 
Hex F3: No job control record present. This file is a new file. 
User Portion: Not used (hex 40s) 



Largest relative record number allocated in this work session chain 
Pointer to the next work session control record 
Pointer to the last logical header record in this chain 
Pointer to the last logical record in this chain 
Pointer to the first logical data record in the work session chain 
Identifier for this work session 
Hex F3: Work session ended normally 

Hex F4: Work session ended abnormally or work session is running 
Hex F5: Work session was restarted after ending abnormally. The file might contain 
unchained records entered for the session. Deleting a record changes it to F3. 
Hex 40: End of work session control record chain 
Portion; User data 



Field 


1 : 


Field 


2: 


Field 


3: 


Field 


4: 


Field 


5: 


Field 


6: 


Field 


7: 



User 
Field 



Field 
Field 

Field 

Field 

Field 
Field 



Hex 0000: Record can be reclaimed if it is not chained to the previous record but it can be 
validly chained to the previous record 
Hex FFOO: Record cannot be reclaimed 
Not used (hex 0000) 

Pointer to the previous header record. Field 3 is hex 0000 for the first record in the file or 
for files that have no header records 

Pointer to the previous record in the work session chain. Field 4 is hex 0000 for the first 
data record in a chain 

Pointer to the next record in a work session chain. For the last record, field 5 points to a 
blank record 

Display station identifier for this work session 
Hex F6: This record is a detail data record 

Hex F7: This record is a header data record 

Hex 40: This is the last data record in the chain of data records. 



Figure 4-2. Trailer Contents 
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File Definition Coding 



A WSU program must contain a file definition which contains 
descriptions of the transaction file and master files used by a WSU 
program. This file definition contains file description and input 
specifications. Figure 4-3 shows the F- and I -specification coding 
forms. The information needed to run your WSU program is taken by 
WSU from the RPG F- and I -specification sheet; the information that 
is not needed is ignored. 

The F-specification contains the specifications that describe the 
transaction and master files. The I -specification contains the 
specifications for the following fields that are used in your program: 

• Transaction -file fields 

• Master-file fields 



• Local-data-area fields 

• Session -level fields. 



Examples of coded F- and I -specifications are in this chapter and in 
Chapter 1 1 , WSU Example Programs, and Chapter 1 2, F-(File 
Descriptior)) and I -(Input) Specifications. 



RPG INPUT SPECIFICATIONS 



Caic* Electro NumtKt 



75 76 77 7S 79 




For ihe tfalid entries for a system, refer to the RPG reference manual for that system. 



Block 
Length 



Record 
Length 



Moil>> of Prucessing 



Type of File 
Additional Art 



Key Field 

Starting 

Location 



External Record Name 



19 20 21 77 23 7A 25 26 27 26 ?9 30 31 32 33 34 35 36 : 



Symbolic 
Device 



Name of 
Label Exi 



Extent Exit 
for DAM 



File Addition/Unordered 



Numiser of Extents 



Storage Index 



Continuation Line; 



Sb 56 57 58 59 



60 61 62 63 64 S5 > 



4 III 



69 89 < 9 99 99 Z9 19 09 6S 8S t^i 99 99 »9 C9 £9 L9 09 6» 8» 9» 9f 1 



' 6r ar ly 9C sr v£ rr iz ic oc 6£ 8£ ii 9Z 92 vt zz ii iz oz 6i 8i 9i 9i »i ci zt ii oi 



Figure 4-3. File Definition Coding Forms 
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F-Specification 



The following entries are required for both transaction and master files. 

• The File Name (columns 7 through 1 4) must be entered in 
columns 7 through 14 to specify the name of the transaction or 
master file used. Q 

• The File Type (column 1 5) must be either an I (input) or an U 
(update); you can use either if your F-specification is used only in 
connection with a WSU program. 0 

• The Record Length (columns 24 through 27) must include the 
length of the transaction record plus 13 bytes used by WSU to 
maintain the records in the transaction file by display station. 0 



for a system, refer to the RPG reference manual for that system. 




The following entries are required only for indexed master files. 

• The Length of Key Field (columns 29 and 30) specifies the length 
in bytes of the record key. 0 

• The Record Address Type (column 31) specifies either a packed 
decimal record key or an alphameric record key. 0 

• The Key Field Starting Location (columns 35 through 38) 
specifies the starting position of the key in each record of an 
indexed master file or contains EXTK for a non -contiguous keyed 
file. 0 
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I -Specification 



A WSU program's file definition must contain l-(input) specifications 
for the transaction -file fields, master-file fields, local-data-area fields, 
and session -level fields that are used in the program. 

An I -specification can have two types of lines: record lines and field 
lines. Record lines use columns 7 through 42; columns 43 through 58 
must be blank. There can be a maximum of 255 record lines. Field 
lines use columns 43 through 58; columns 7 through 42 must be 
blank. 

Record lines include: 

• File Name (columns 7 through 14) which specifies the name for a 
transaction file, master file, group of session-level fields, or local 
data area. Q 

• AND/OR (columns 14 through 16) which specifies that you need 
more than three record identification codes or if either one of the 
codes can be present to identify the record. AND/OR is discussed 
later in this chapter. Q 

• Record Identifying Indicator (columns 19 and 20) which specifies 
the record type. 0 

• Record Identification Codes which include: 

- Not (N) (columns 25, 32, 39) specifies that the following 
C/Z/D of the record identification character must not be in the 
Position location, (columns 21 through 24, 28 through 31, 35 
through 38) 

- C/Z/D (columns 26, 33, 40) specifies which portion of the 
Character (columns 27, 34, 41 ) is used as the record 
identification character. 0 ^ 

- Position (columns 21 through 24, 28 through 31, 35 through 
38) specifies the location in the record of the record 
identification character. Q 



RPG INPUT SPECIFICATIONS 




CanJ Electro Number 



12 
Page ] [ | of 



Program 
Ident 



75 76 77 78 79 80 



"a.on l I I I I I 



Field Location 



From 


To 


Data Structure 



Occurs 
n Times 
44 45 4b 47 



Length 
48 49 50 51 



RPG 
Field Name 



53 54 65 56 57 58 



Field 
I ndicators 



Zero 
Blank 
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Field lines include: 

• PIBILIR (column 43) which specifies packed decimal, binary, 
zoned decimal, or an alphameric field. ^ 

• Field Location (columns 44 through 55) which specifies the 
beginning and ending locations of the field. 0 

• Decimal Positions (column 52) which specifies the number of 
decimal positions to the right of the decimal point in this numeric 
field. 0 

• Field Name (columns 53 through 58) which specifies the name of 
this field. 0 
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AND/OR Relationships 



AND Relationship: You can code a maximum of three record 

identification characters on one specification line. If the identification 
code consists of more than three characters, you can use an AND line. 
This means that the first three identification characters are described 
on the first line. Additional identification characters are described on 
following lines by coding AND in columns 14 through 16 to indicate 
the continued lines. 

Figure 4-4 shows record identification codes consisting of five 
characters. The first character is in position 1, the other four 
characters are in positions 93, 94, 95, and 96. Since you can code 
only three identifying characters on one line, the word AND on the 
next line indicates that the last two characters of the code are part of 
the previous record identification entries. 

You can code a maximum of 20 AND lines to describe the record 
identification codes for a record. The record must contain all the 
characters indicated as record identification characters before the 
record identifying indicator turns on. 



I 

Line 
3 4 5 


e 

6 


Filename 
or 

Record Name 


Sequence 


1 Number (1/N), E 1 


5 Option (0), U.S 1 


(D Record Identifying Indicator, 
g ".orDS 


External Field Name 
Record Identification Codes 


S Stacker Select | 


£ P/B/L/R . 1 


Field Location 


S Decimal Positions | 


RPG 
Field Name 

63 54 55 56 57 58 


O 
59 60 


^ Matching Fields or 
5 Chaining Fields 


„ Field Record Relation 


Field 
Indicators 


71 72 73 74 


1 


2 


3 


From 


To 


Plus 
65 66 


Minus 
67 68 


Zero 
Blank 

69 70 


Position 
21 22 23 24 


z 
z 

25 


a 

N 
O 

26 


27 


Position 
28 29 30 31 


z 

z 

32 


a 

N 

<j 

33 


i 

a 

34 


Position 
35 36 37 38 


z 

39 


g C/Z/D 1 


41 
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Figure 4-4. Example of AND Line 
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OR Relationship: Two different record types can be identified by 
different characters in the same physical position in the field. You can 
code OR lines to indicate which of the codes can be present to 
identify the record. You can code a maximum of 20 OR lines for each 
record. Also, you can use OR lines to specify a second type of record 
that has different record identification codes, but the same fields. 

Figure 4-5 shows the use of an OR line to describe record 
identification codes. The record is identified by either of two different 
codes: a code consisting of a 5 in position 1 and a 6 in position 2, or 
a code consisting of a 6 in position 1 . 

Note: If AND lines and OR lines are combined, the total number of 
such lines for one record type cannot exceed 20. 
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Figure 4-5. Example of OR Line 
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Data Formats 



System/36 supports zoned decimal, packed decimal, binary, and 
alphameric data formats. The data format is specified in column 43 of 
the I -specification. 

Zoned Decimal Format (Blank): In zoned decimal format each 
byte of storage contains 1 decimal digit. In the zoned decimal format, 
each byte of storage is divided into a 4-bit zone portion and a 4- bit 
digit portion. The zoned decimal format looks like this: 



0 ►? 


0 


►? 


0 ►? 


0 


^7 


0 


>7 


1 

Zone Digit 
1 


Zone 

1 


Digit 


1 

Zone Digit 
1 


1 

Zone 


Digit 


1 

Sign 

1 


Digit 



1 101 = Minus sign (hex D) 
1111 = Plus sign (hex F) 



Note: WSU does not perform data verification on numeric data. The 
value of the digit portion of a character is assumed to be the numeric 
value of that character. 

The zone portion of the low-order byte indicates whether the decimal 
number is positive or negative. In zoned decimal format, each digit in 
a decimal number includes a zone portion; however, only the 
low-order zone portion serves as the sign. Figure 4-6 shows the 
zoned decimal format of a number in storage. 

Once data is read into the computer, it must be represented in the 
zoned decimal format before it can be used. Thus, data can be stored 
on disk and read into the computer in the zoned decimal format, 
thereby eliminating the need to convert the field. However, storing 
numeric data (decimal numbers) on disk in either the packed decimal 
or the binary format provides more efficient use of disk storage space. 
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Zoned Decimal Format: ^ 



Positive 



Zone 


Zone 
1 8 


Zone 


Zone 


sign 


r 1 


0000 

1 


1 

1000 

1 


1 

0001 

1 


1 

1001 

1 


nil 0001 
1 


< 




— 5 bytes — 






► 



Packed Decimal Format: 



Positive 

0 8 19 1 sign^ 



0000 1000 0001 1001 0001 1111 
I U I 



■3 bytes 



Binary Format: 

Positive I 1 I 1 1 I 



I I 



i 1 1 1 1 1 1 i 


1 1 1 1 1 i 1 


0 0 0 1 1 1 1 1 

1 


1 

11111111 

1 



■2 bytes - 



^ If 8191 is read into storage as a zoned decimal field, it occupies 4 bytes of the 5 bytes shown. However, if it is 
converted to packed decinnal format, it occupies 3 bytes; then when it is converted track to zoned decimal format, 
it occupies 5 bytes. 

^To obtain the numeric value of a positive binary number, add the value of the bits that are on (1 ); the sign bit is 
not included. To obtain the numeric value of a negative binary number, add the values of the bits that are off (0) 
plus on; the sign bit is not included. 



Figure 4-6. Zoned Decimal, Packed Decimal, and Binary Representation of 8191 



Coding Files 4-17 



Packed Decimal Format (P): In packed decimal format each byte 
of disk storage (except for the low-order byte) contains 2 decimal 
digits. Because many of the fields in a disk file contain decimal digits, 
you can save disk space by storing these fields in the packed decimal 
format. 

In the packed decimal format, each byte of disk storage, except the 
low-order byte, is divided into two 4-bit digit portions. The rightmost 
portion of the low-order byte contains the sign (plus or minus) for 
that field. The packed decimal format looks like this: 



0 ►? 0 ►? 

1 1 \ 

Digit Digit Digit Sign 
I _1 I 



byte 



The sign portion of the low-order byte indicates whether the numeric 
value represented in the digit portions is positive or negative. In the 
packed decimal format, the sign is included for each decimal number; 
however, the zone portion is not given for each digit in the number. 
Compare how the decimal number 8191 is represented in packed 
decimal format with its zoned decimal representation shown in Figure 
4-6. 

Because data must be represented in zoned decimal format to be 
processed by the computer, you must give the WSU program an 
indication when input fields are in another format. Entering a P in 
column 43 indicates that the input field is in the packed decimal 
format and that the system must convert this field to the required 
zoned decimal format. 

When a packed decimal field is converted to a zoned decimal field, the 
zoned decimal field always contains an odd number of bytes. If a 
zoned decimal field with an even number of bytes is converted to a 
packed decimal field and then converted back to a zoned decimal 
field, the resulting zoned decimal field also contains an odd number of 
bytes. 
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Packed fields can be up to 8 bytes long. The following chart shows 
the packed equivalents for zoned decimal fields up to 1 5 bytes long: 



Zoned Decimal Packed Length 

Length in Bytes in Bytes 



15 
14 

13 
12 

11 
10 

9 
8 

7 
6 

5 
4 

3 
2 



Binary Format (B): The binary format allows you to save even more 
disk storage space than you can save using the packed decimal 
format. In the binary format, each field on disk must be either 2 or 4 
bytes long. 

Each 2-byte binary field consists of a 1 -bit sign followed by a 1 5-bit 
numeric value. In binary format, a decimal number as high as 9999 
requires only 2 bytes of disk storage. For each 2-byte binary field 
stored on disk, WSU automatically sets aside 4 bytes of storage for the 
field when it is converted to zoned decimal format. A 2-byte field in 
binary format looks like this: 



0 1 



15 



Sign 



Number 



-2 bytes- 
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Each 4-byte binary field consists of a 1 -bit sign followed by a 31 -bit 
numeric value. In binary format, a decimal number as high as 
999,999,999 requires only 4 bytes of disk storage. For each 4-byte 
binary field stored on disk, WSU automatically sets aside 9 bytes of 
storage for the field when it is converted to a zoned decimal format. A 
4-byte field in binary format looks like this: 



31 



Sign 



Number 



•4 bytes- 



In each case, the sign portion of the high-order byte indicates whether 
the numeric value is positive (sign bit off) or negative (sign bit on). 
Positive numbers are represented in true binary notation with a zero 
sign bit. Negative numbers are represented in two's complement 
notation with a one sign bit. (The two's complement of a number is 
formed by taking the true binary notation, changing all 1's to O's and 
all O's to 1's, and adding 1 to the new number). The bits between the 
sign position and the leftmost significant bit of the integer are always 
the same as the sign bit. When the number is positive, these bits are 
zeros; when the number is negative, all these bits are ones. 

Notice that, in the binary format, the zone position of the decimal 
number is not given. Compare how the decimal number 8191 is 
represented in binary format with packed and zoned decimal 
representation (see Figure 4-6). 

Because data must be represented in zoned decimal format to be 
processed by the computer, you must give the WSU program an 
indication when input fields are in another format. Entering a B in 
column 43 indicates that the input field is in the binary format and 
that the system must convert this field to the required zoned decimal 
format. 
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Examples of Coding F- and /-Specifications 



Figure 4-7 shows an example of coding F- and I -specifications for a 
transaction file. 

This F-specification defines a transaction file named TRANS that has a 
525-byte record length (512 bytes plus 13 bytes for each trailer). 
Remember that WSU ignores entries on the F-specification that it does 
not need. 

Regardless of the F-specification entries, WSU creates the transaction 
file as a direct output file. In order to use the transaction file as 
described by an F-specification for an indexed file, an RPG II program 
must change the file to an indexed file. 

These {-specifications further define the transaction file. TRANS has 
two record types: 01 and 02. 

The 01 record has all of the following characteristics: 

• Character C in position 80 

• The absence of the following characters in position 91 : 

- & 

- A through I (Not zone A eliminates A through I because the 
zone character for A through I is the same.) 

• One of the following characters in position 92: 

- C 

- L 

- T 

- 3 

• Character D in position 93. 

Note: Refer to the manual Programming with RPG II for information 
about hexadecimal representation of characters. 

Record 01 has three fields: FIELD1 is alphameric and begins in 
position 20; FIELD2 is numeric with two decimal positions and begins 
in position 25; and FIELDS is packed decimal numeric with two 
decimal positions and begins in position 31 . 

Record 02 is identified by the character D in position 80. It has two 
fields: FIELD4 is an alphameric field that begins in position 20, and 
FIELDS is a numeric field with two decimal positions that begins in 
position 31 . 

Figure 4-8 shows an example of coding F- and I -specifications for a 
direct master file. Figure 4-9 shows an example of these 
specifications for an indexed master file. 
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Figure 4-7. Example F- Specifications and l-Specifications 
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Figure 4-8. Example F- and l-Specifications for a Direct Master File 
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Figure 4-9. Example F- and l-Speciflcations for an Indexed Master File 
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File Coding 

When coding your source program you must include: 

• J -specification (one per program) 

• T-specification (if used, one per program) 

• M -specification (if used, as many as needed for your program). 

Note: For WSU data entry programs, you must have either a 
transaction file or a master file. 

These specifications can all be coded on one form: the WSU Job, 
Array, and File Specifications coding form (see Figure 4-10). These 
specifications must come before the rest of your source program (the 
S-, D-, and C-specifications). 



S/36 WSU Job, Array, and File Specifications 
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Array Specifications 
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Transaction/Master File Specifications 




Figur* 4-10. J-, E-. T-, and M -Specification Coding Form 
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J-Specification 



All WSU programs must have a J-specificatlon. No matter how 
complex or simple the program, there is only one J -specification 
coded. 

Two entries are required for the J -specification. 

• The Program Name (columns 7 through 14) is a name assigned to 
the WSU program and to the WSU-generated procedure. 0 

• The load member in which up to 245 display screen formats are 
stored during generation is the Display Format Member Name 
(columns 15 through 22). 0 



IT 



Job Specification 



Program 
Name 

8 9 10 1112 1 



Display 
Format 
Member 

15 16 17 18 19 20 21 ' 



Message 

Member 
Name 

23 24 25 26 27 28 29 30 



31 32 33 34 35 36 37 38 39 40 



Reserved 

1 52 53 54 55 56 57 58 5 9 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8( 



Array Specifications 



Sequence 
Number 

12 3 4 5 


* Specification Type 1 


7 B 9 10 11 


12 13 14 


Reserved 
15 16 17 18 19 20 


21 22 23 24 25 26 


Name 
27 28 29 30 31 32 


33 34 35 


Number 
of Entries 

36 37 38 39 


Length 
of 

40 41 42 




£ Decimal Positions | 


5; Sequence (A/D) | 


Reserved 

46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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The J -specification and all of its allowed entries are described In 
Chapter 1 3, J -(Job) Specifications. 
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T-Specification 



The WSU T-specification defines characteristics of the transaction file 
(a direct file), if the T-specification is not specified in the WSU 
source program, WSU assumes that the program does not use a 
transaction file. There can be only one transaction file named for each 
WSU program. As shown in Figure 4-10, the T-specification is on the 
same form as the M -specifications because these specifications share 
common entries. 

This section describes entries that you can code on the 
T-Specification. Chapter 1 1 contains sample programs for which this 
specification has been coded. A detailed reference for the entries on 
the T-specification can be found in Chapter 15, T- (Transaction File) 
and M'( Master File) Specifications. 

The T-specification requires only two entries: the File Name (columns 
7 through 14) and the Source Member Name (columns 23 through 
30). The file name must be the same name that is listed as the 
transaction file name Q on the F- and l-specifications. The source 
member name is the name of the source member that contains the F- 
and l-specifications for the transaction file. 0 

WSU also checks for the following optional entries on the 
T-specification: 

• Library Name (columns 15 through 22) of the source member that 
contains the F- and l-specifications. 0 

• Not-Found Indicator (columns 49 and 50) turns on when WSU 
cannot determine the record type of the record read from the 
transaction file or tries to retrieve a record that is beyond the 
logical end of the transaction file chain for that work station. 0 

• Header Record Identifying Indicator (columns 55 and 56) allows 
the operator to use the Page Backward Group and Page Forward 
Group command keys, see Chapter 7, Coding Processing, and 
allows the programmer to code GETNH and GETPH operations, 
see Chapter 1 8, Operation Codes. 0 
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Number of Records (columns 57 through 60) to be entered in the 
transaction file. If this is left blank, storage is allowed for 1 000 
records. Q 



• Error Indicator (columns 61 and 62) turns on when an 

output/input error occurs for a transaction file operation or a 
record -not-found condition occurs for a transaction file and an 
indicator has not been coded in columns 49 and 50 of the 
T-speciflcation. If there is an error, the code for this error is 
placed in *ERROR, a WSU reserved field. See Chapter 3, 
Reserved Fields and Indicators, for a discussion of *ERROR. 0 



Q O Q O 



Transaction/Master File Specif ica 



Sequence 
Number 
12 3 4 



Definition Locati 



5 16 17 18 19 20 21 22 



23 24 25 26 27 28 29 30 



GET Field Names 



Name 1 
31 32 33 34 35 36 



Name 2 

37 39 3940 41 42 



Records 
i 5 7 58 5 9 6 0 6 



5 76 77 78 79 80 



WW 



m 
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M-Specification 



An M -specification provides information about a master file, 
session-level fields, or local-data-area fields. As many as 20 master 
files, one group of session-level fields, and one group of 
local-data-area fields can be used in a WSU program. 

As shown in Figure 4-10, M -specifications are on the same form as 
the T-specification. 

Each M -specification provides: 

• Fi/e Name (columns 7 through 14) names the master file, a group 
of session -level fields, or a local data area. The master file is the 
same file which appears in columns 7 through 14 of the F- and 

I -specifications. The name of session -level fields or the name of a 
local data area is shown also on the I -specification. O 

If the local data area is defined in the WSU program on the 
l-specification and the M -specification, WSU automatically reads 
a display station's local data area when the display station signs 
on and updates this data area when the display station signs off. 

Session -level fields are defined on the WSU M -specification as 

well as on the l-specification. These session -level fields are 
initialized when a work session is started at the display station. 

• Library Name (columns 1 5 through 22) names the library that 
contains the source member. Q 

• Source Member Name (columns 23 through 30) names the source 
member that contains the F- and I -specifications for the master 
file, the I -specifications for the group of session -level fields or for 
the local data area. Q 

• GET Field Names (columns 31 through 48) names the input fields 
that WSU combines (in the order you code them) to search the 
key field in the master file. This field is used to access records (by 
means of GET and PUT operations) in a master file. Q 

Example: 

l-specification defines: FIELDAand FIELDB 
C-specification defines (in a result field): FIELDC 
M -specification defines: FIELDA FIELDB FIELDC 
When a GET is issued, assume the contents of these fields are: 
FIELDC: A124 
FIELDB: 123 
FIELDA: ABC 

The field that is formed to access the record is: A1 241 23ABC 
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• Not-Found Indicator (columns 49 and 50) turns on when WSU 
cannot determine the type of the record read from the master file 
or when there is no record that has the specified key, 0 

• Error Indicator (columns 61 and 62) turns on when an 
output/input error occurs during a file operation for a master file or 
when a record-not-found condition occurs for the master file and 
an indicator has not been coded in Not-Found Indicator of the 

M -specification. If there is an error, the code for the error is 
placed in *ERROR, a WSU reserved field. Q 

9 File Definition Type (column 63) indicates use of a local data 
area, group of fields, or master file. 0 

• F/e/</ /.ewe/ (column 64) indicates session -levellocal-data-area 
fields, a group of session -level fields, mode- level local data-area 
fields, or master file fields that are mode level. 0 



Sequence 
Number 
1 2 3 4 5 



Name 

7 8 9 10 II 12 13 14 



F le Definition Locatioi 



Library 
1516 17 18 19 20 21 22 



o 



Transaction/Mastc 



Source 
Member 
Name 
23 24 25 26 27 28 29 30 



FILESRC 



r File Specif ica 



GET Field Names 



Name 1 
32 33 34 : 



LlEL 



mmmmmmmk 

^mmmmmm 



Number 
of 

Records 
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Chapter 5. Coding Arrays 



An array is a continuous series of data fields stored side by side so 
they can be referenced as a group or individually. In an array, each 
individual data field is called an element. Figure 5-1 shows an array 
of 12 elements containing the total sales for each month of the year. 

Each element of the array has the same characteristics; that is, each 
contains data: 

• In the same format (alphameric or numeric) 

• Of the same length 

• With the same number of decimal positions. 

Within a numeric array, elements may be positive or negative. 

Each element Two decimal positions 

six characters in each element 

in lengthv 



1258.72 


0963.84 


0792.38 


1462.98 


2375.65 


0865.97 


1 793.84 


0084.56 


0693.58 


1562.47 


1237.96 


0908.70 


JAN 


FEB 


MAR 


APRIL 


MAY 


JUNE 


JULY 


AUG 


SEPT 


OCT 


NOV 


DEC 



Figure 5-1 . A Numeric Array 
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Using Arrays 



Arrays are generally used for storing variable transaction data, and for 
storing totals from the variable data that are used independently. 

You can use arrays effectively when you want to: 

• Reference ail elements at one time. 

Arrays can reduce the number of specifications you must code for 
such a program (see Figure 5-2) as well as the time required to 
reference the entries. 

• Directly reference a data item within a group of items. 

Individual array elements can be referenced quickly by specifying 
an index (or subscript) that points to the item. 

• Handle data within a field. 

• Search a group of items for one or more that meet a certain 

requirement. 

• Total the values of a group of data items. 

• Sort a group of data items into ascending or descending order. 

The next two figures show how the number of specifications can be 
reduced for a program when you use array processing. These figures 
are SEU printouts, so there are no F- or I -specifications shown. 

Suppose your company is in the process of converting from a manual 
operation to one that uses a System/36, and you need to enter several 
hundred sales records from the prior year into the system. While the 
records need not be in any sequence, management is interested in the 
sales totals for each month, as well as the total sales for the year. 

If a new programmer who did not know how to use WSU array 
processing were assigned the task of writing the data entry program, 
the results might be shown as in Figure 5-2. 

However, if the program were written using WSU array processing, a 
significant number of specification statements could be saved, as 
shown in Figure 5-3. 

Compare the two listings and notice that the first five statements are 
unchanged but that statements 16 through 49 (34 instructions) are 
replaced by one instruction\ 
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MEMBER SALENT LIBRARY STNLIB SEU EOJ PRINTOUT 

IBM SYSTEM/3A SOURCE ENTRY UTILITY 



0001 


JSALENT SAI...ENTr-M 




STNLIB 01 








0002 


TSALEBFLEUSI II IB E] 


L 


EDEI" 








100 


000.? 


SSALESENT 0124 








YY 






0004 


i:i 0431 






Y 






P* SALES RECORD ENTRY » 


0005 


D 0621 






Y 






P'DateJ ' 


0006 


DDATE 062? 




YN Z 






Y 




0007 


D 0641 






Y 






P ' Sa I es Am o u ri t ♦ ' 


0008 


nSALAMT 0655 




YN Z 


Y 




Y 




0009 


T.I 0806 








Y 




P' Press Cmd Key 7 to end- 


0010 


D +he program* 














0011 


C KG 




SETON 






EW OPERAIOR SIGNALEB 


0012 


C KG 




OJOTO 


END 






ENB-OI--JOB 


0013 


C 




movi;.-:l 


.DATE 


MTH 


20 


EST. THE SALES MONTH 


0014 


C MTH 




RANGE 1 


12 




50 1EST FOR VALIB MONTH 


OOlS 


C N50 




MSG 


'INVALID 


DATE ♦ 




MTH NOT JAN THRU DEC 


0016 


C MTH 




COMP 


1 






50JANUARY SALE 


0017 


C 50 SAI..AMT 




ADD 


JAN 


JAN 


72 




0018 


C 50 




GOTO 


COMMON 








0019 


C MTH 




COMP 


2 






SOFEBRUARY SALE 


0020 


C 50 SALAMT 




ABB 


FEB 


f"EB 


72 




0021 


C 50 




GOTO 


COMMON 








0022 


C MTH 




COMP 


3 






50MARCH SALE 


0023 


C 50 SALAMT 




ADD 


MAR 


MAR 


72 




0024 


C 50 




GOTO 


COMMON 








0025 


C: MTH 




c;oMr' 


4 






50APRIL SALE 


0026 


C 50 SALAMT 




ADD 


APR 


APR 


72 




0027 


C 50 




GOTO 


COMMON 








0028 


C MTH 




COMP 


5 






50MAY SALE 


0029 


C 50 SALAMT 




ADD 


MAY 


MAY 


72 




0030 


C 50 




GOTO 


COMMON 








0031 


C MTH 




COMP 


6 






SOJUNE SALE 


0032 


C 50 SALAMT 




ABB 


JUN 


JUN 


72 




0033 


C 50 




GOTO 


COMMON 








0034 


C MTH 




COMP 


7 






SOJULY SALE 


0O35 


C 50 SALAMT 




ADD 


JUL 


JUL 


72 




0036 


C 50 




GOTO 


COMMON 








0037 


C MTH 




(:;OMI"' 


8 






SOAUGUST SALE 


0038 


C 50 SALAMT 




ABB 


AUG 


AUG 


72 




0039 


C 50 




GOTO 


COMMON 








0040 


C MTH 




COMP 


9 






50SEPTEMBER SALE 


0041 


C 50 SAI...AMT 




ABB 


SEP 


SEP 


72 




0042 


C 50 




GOTO 


C;OMMON 








0043 


C MTH 




COMP 


10 






500CT0BER SALE 


0044 


C 50 SALAMT 




ABB 


OCT 


OCT 


72 




004S 


C 50 




GOTO 


COMMON 








004A 


C MTH 




COMP 


11 






50N0VEMBER SALE 


0047 


C 50 SALAMI 




ABB 


NOV 


NOV 


72 




0048 


C N50 SALAMT 




ABB 


BEC 


BEC 


72 




0049 


C COMMON 




TAG 










OOSO 


C SALAMT 




ABB 


TOTAL 


lOTAL 


102 


TOTAL OF ALL SALES 


0051 


C 




MOVE 


»S' 


RCOBE 




EST. THE RECORD CODE 


0052 


c 




POT 


SALESFI...E 






01 WRITE TRANS. RECORD 


0053 


C END 




TAG 










0054 


SSUMMARY EU0124 














0055 


r.i 0435 






Y 






P > SALES SUMf'IARY * 


0056 


rtJAN 0609Y 


J 










P* January ' 


0057 


DFEB 063 lY 


J 










P*Fetav aatry* 


0058 


riMAR 0654Y 


J 










P' March * 


0059 


DAPR 0909Y 


...1 










P' Apr i I > 


0060 


I.IMAY OBVSIY 


...I 










P>May ' 


0061 


DJUN 0854Y 


.J 










P^June ' 


0062 


DJUL 1009y 


J 










P'July ' 


0063 


BAUO 1031Y 


J 










P'Aac)ust ' 


0064 


DSEP 1054Y 












P ' Sep -V ember ♦ 


0065 


DOCT 1209Y 


...1 










P' October ♦ 


0066 




J 










P* November ♦ 


0067 


DDEC: 1254Y 


J 










P* Bee ember ♦ 


0068 


B 1523 






Y 






p »»»»»» GRAND TOTAL* 


0069 


BTOTAL 1541Y 


...1 












0070 


n 1556 






Y 






P » mir»** * 


0071 


D 2006 








Y 




F'*When you are finished - 


0072 


D V i e w i ng t h ese + o t <a I 




se prefss 


Enier ' 







E N D O F" S E U !•"• R 1 N T O U T 



Figure 5-2. Data Entry Program WITHOUT Array Processing 
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MEMBER SALENT LIBRARY WSULIB 


SEU EOJ F-R.TNTOUT 








IBM 8YSTEM/36 SOURCE ENTRY UTILITY 


000 1. 


...l5SAI...ENr' 


SALENTFM U!SUI...:i:B 01 






0002 


E 


SA 12 


7 2 


SALES ARRAY 


0003 


TSAL.ESF I...E WSt JL I B F I LEDEF 




lOO 


000-4 


SSALESENT 0J.24 


YY 




0005 


D 


0431 Y 


P 


* SALES RECORD ENTRY* 


0006 


1.1 


0621 Y 


P 


'DaHeJ* 


0007 


i;ii;iATE 


0627 YN Z 


Y 




0008 


D 


0641 Y 


P 


* S«s 1. OS Am 0 u n t ♦ ♦ 


0O09 


DSAL-AMT 


0655 YN Z Y 


Y 




00.1.0 


n 


0806 


Y P 


* Press Cmd Key 7 to ©nd- 


001 1. 


D 1.1-1© r>r 








00 12. 


C KG 


SEI'ON 


EU 


OPER A I OR s j: C)N ALED 


OOlZ 


C K(3 


GOTO ENi;i 




END-OF-JOB 


0014 


C 


MOVELDATE 


MTH 20 


EST. THE SALES MONTH 


0015 


C 


MTH RANGE 1 


12 


50 TEST F-'OR VALID MONTH 


00 :l. 6 


C N50 


MSG M:N*yiAi....i;r.i 


DATE ♦ 


MTH NOr ..IAN THRU DEC 


00 1 7 


C 50 


SALAMT Ai:iD SA , MTU 


SA , MTH 


ACCUMUL.ATE IHE SIJAL.E 


00.1.8 


C 50 


Moui;;: » s » 


RCOl'iE 


EST. THE RECORD CODE 


00 1 9 


C 50 


l^'UI SAI..ESFLE 


01 


WRITE TRANS. RECORD 


0020 


C 


ENI.1 TAG 






0021 


C KG 


XFOOTSA 


TOTAL 102 


TOTAL OF ALL SALES 


0022 


SSUMMARY 


EW0124 






0023 


D 


0435 Y 


P 


* SALES SUMMARY ' 


0024 


nSA 03R11S0618Y J 






0025 


D 


0609 


P 


' January' 


002<& 


n 


0631 


P 


*F©tar UAiry ' 


0027 


D 


0654 


P 


'March > 


0028 


n 


0809 


P 


'Apr i 1. ' 


0029 


D 


0831 


P 


' Mii y ' 


0030 


.0 


0854 


P 


' >.Ju ne ' 


003 1 


D 


1009 


P 


' > J u L y * 


0032 


i:i 


1031 


P 


' Augus t * 


0033 


D 


1054 


F 


' September ' 


0034 


n 


1209 


P 


'October* 


0035 


i:i 


1231 




' N 0 v<j*><nb<3r * 


0036 


n 


1254 


P 


' December ' 


003 V 


D 


1523 Y 


P 


GRAND TOTAL' 


0038 


DTOTAL 


1541Y J 






0039 


» 


1556 Y 


P 




0040 




2006 


Y P 


'Wh(sii you are finished — 


0041 


Dv i e»M i nt) 


•(•h«»Bi9 to+aLst p l.ea<se press 


EYvter ' 








E N D 0 F 


S E U P R I N 


TOUT 



Figure 5-3. Data Entry Program WITH Array Processing 
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Defining Arrays 



WSU uses the kind of arrays that RPG calls execution -time arrays; that 
is, the arrays are built (or loaded) when the program is run. The data 
for such arrays may be read from input file records at the beginning of 
the program, generated by processing operations during the course of 
the program's run, or filled by data entered by the operator. 

A WSU array can be mode- level, session -level, or job- level. 

You tell the WSU program that you wish to set up an array by coding 
E-(array) specifications that define: 



" "he name of the array 

The maximum number of elements (or entries) 
that the array will contain 



The length of each element in the array 



The number of decimal positions (if any) 
in each element 

If important to the application, 
the sequence or order (ascending 
or descending) of the data in 
the array 




Number 
1 2 3 4 6 


tn Specification Type | 


Reserved 

7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2425 26 


Ar 

Na 

27 28 29 


ray 
me 

30 31 32 


33 34 3J 


Number 
of Entries 

Array 
36 37 38 39 


of 

»0 41 42 


!o Reserved 1 


1 £ Decimal Positions \ 


5 
< 

45 


Reserved 

46 47 48 49 SO Si 52 54 55 56 57 58 59 60 6) 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 












E 










































s 


A 


















i 








7 




S 




















































































E 






























































































































































E 






























































































































































E 






























































































































































E 





















































































































































(The above E-specification defines the array pictured in Figure 5-1 .) 

E-specifications reserve the appropriate space in storage for the array. 

The array is then loaded ixom data produced by operations described 
on C- (processing) specifications, from input data described on 
l-(input) specifications (see Loading Arrays later in this chapter), or 
from data entered by the operator. 
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Naming Arrays 



The name used to reference an array can be up to 6 characters long. 
The name of a job-level array must begin with the & character; all 
other array names must begin with an alphabetic character. 

Keep in mind, however, that if you plan to use an index to reference 
individual elements of an array (in some place other than factor 1 or 
factor 2 of the C-specification), the name also includes the index and 
the comma separating it from the array name. Therefore, try to keep 
the array name short, so that the array name, the comma, and the 
index do not exceed 6 characters. See Indexing an Array later in this 
chapter. 

Spacing Arrays 

A WSU array can contain as many as 9999 elements. Alphameric 
elements can be up to 256 characters long; numeric elements can be 
as long as 1 5 digits, with a maximum of 9 decimal positions. 

However, because WSU arrays are part of the program that is running, 
using a very large array increases the time it takes to run the program 
as well as the amount of storage required to run the program. 

Also, if you plan to display all or part of the array, you should keep in 
mind how the elements will fit in rows or columns on the display (see 
Displaying Arrays later in this chapter). 

Ordering Arrays 

WSU arrays are not sequence-checked and therefore need not be in 
any sequential order. However, if you plan to use a LOKUP operation 
to search for high or low conditions, you must specify whether the 
array is (or should be) in ascending or descending order. 

If at the time you want to do a high or low lookup you are not sure 
that the elements in the array are properly ordered, you can use the 
SORTA operation to put the elements in the sequence you define on 
the E-specification. If you have ideographic characters in the array, 
the SORTA cannot properly sequence the elements. 
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Referencing Entire Arrays For Processing 



You reference entire arrays on C-specifications by using the array 
name as factor 1, factor 2, or the result field; the name actually refers 
to all of the array elements. An operation specified for an entire array 
is done to each element of the array, using the same field, constant, or 

literal. 

You can use the MOVE and MOVEL operations and all of the 
arithmetic operations (ADD, SUB, MULT, DIV, Z-ADD, Z-SUB) 
except MVR to process entire arrays. In addition, WSU provides four 

special for-arrays-only operations: 

• MOVEA, which moves data to or from an array 

• XFOOT, which sums the values of array elements 

• SORTA, which sorts array elements 

• LOKUP, which searches for a specific array element. 

An operation done on all elements yields more than one result; 
therefore, except with the XFOOT and LOKUP operations, you don't 
use resulting indicators when you process entire arrays. 

Processing from Array-to-Array 

Only one C-specification is necessary to do most array-to- array 
processing, because, as stated before, the name of an array actually 
refers to all of the elements in that array. Refer to Figure 5-4 for the 
E- specifications of the DAY array. 

Suppose you build an array named DAY from a file named SALES, 
whose re jords contain (among other things) the day's sales totals for 
each eniployee: 



Clerk 1 


Clerk 2 


Clerk 3 


Clerk 4 


Clerk 5 


Clerk 6 


Clerk 7 


Clerk 8 


Sales 


Sales 


Sales 


Sales 


Sales 


Sales 


Sales 


Sales 



Clerk 9 


Clerk 10 


Clerk 11 


Clerk 12 


Clerk 13 


Clerk 14 


Clerk 15 




Sales 


Sales 


Sales 


Sales 


Sales 


Sales 


Sales 





DAY Array: 



I i I 1 1 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 
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To accumulate weekly totals into another array, named WEEK, you just 
code a processing operation that adds the DAY array to the WEEK 
array and places the result back in the WEEK array: 



Sequence 
Number 



Conditioning 
Indicators 



Operation 



m 



Table or Maaige Text 



Length 



8 19 20 21 22 23 24 as 26 27 28 2930 3132 1334 35 3637 38 3940 41 42 13 44 46 46 4748 4960 61 



Resulting 
Indicators 



is|MimijZe" 



Compare 



Equa 

J -2 



62 63 S4 66I6 67 9861 90 6162636486 66 67 88 8970 71 72 73 74 75 76 77 78 79 8( 



mm 



Refer to Figure 5-4 for the E -specifications for the WEEK array. 

What happens is that WSU adds the first element of DAY to the first 
element of WEEK and places the result back in the first element of 
WEEK, then adds the second elements, and so on: 



1 23456789 10 



DAY 


0015.21 


0012.86 


0025.31 


0008.93 


0017,83 


0019.24 


0015,67 


0032.81 


0042.21 


0021.87 




+ 


+ 


+ 


+ 


+ 


+ 


+ 


+ 


+ 


+ 


WEEK 


0072.18 


0142.96 


0063.90 


0089.61 


0076.95 


0128.76 


0134.21 


0062.34 


0079.83 


0052.24 




\ 


\ 


\ 


\ 


t 


1 


\ 


i 


\ 


\ 


WEEK 


0087.39 


0155.82 


0089.21 


0098.54 


0094.78 


0148.00 


0149.88 


0095.15 


0122.04 


0074.11 
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To carry this idea further, one of the most common uses of arrays is to 
accumulate more than one group of totals. Such a procedure is called 
rolling totals, because one total is used to obtain a greater total, which 
is then used to calculate an even larger total, and so on. Each total is 
rolled into, or accumulated, into the next total. To continue the 
previous example, you could add the WEEK array to an array called 
MONTH, and then add the MONTH array to one called YEAR, and so 
forth. Refer to Figure 5-4 for the E-specifications for the MONTH and 
YEAR arrays. 



























WEEK Array 


























MONTH Array'^^v 



























YEAR Array 



Array Specifications 



IT 

Number 
1 2 3 4 6 


[cTi Specification Type | 


Reserved 

7 8 9 10 " 12 1314 1516 17 IB 19 20 21 22 23 2425 26 


Array 

Name 
27 28 2930 31 32 


3 34 35 


Numi>ei 

of Entries 
per 
Array 
36 37 36 39 


Length 

Entry 
0 41 43 


43 


t Decimal Positions | 


S Sequenc! (A/D) _| 


Reserved 

46 47 43 49 50 51 52 53 54 55 56 5 /5S 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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Figure 5-4. E- Specifications for DAY, WEEK, MONTH, and YEAR 
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Processing Arrays of Different Lengths 



In the earlier example, all arrays used in an operation were of the same 
length: factor 1 (DAY), factor 2 (WEEK), and the result array (WEEK) 
each contained 1 0 elements. Thus, the operations were carried out 
until all elements were processed. 

Suppose, though, that the DAY array contains only eight elements, 
while the WEEK array contains 10. In such a case, the operations are 
done only until the last element in the shortest array has been 
processed. Thus, the eight elements of DAY are added to the first 
eight elements of WEEK, and the eight results are placed in the first 
eight elements of WEEK. The remaining two elements of the result 
field (WEEK) remain unchanged. 





1 


2 


3 


4 


5 


6 


7 


8 






DAY 


0017.83 


0019.24 


0015.67 


0032.81 


0042.21 


0021.87 


0019.67 


0018.46 








+ 


+ 


+ 


+ 


+ 


+ 


+ 


+ 






WEEK 


0076.96 


0128.76 


0134.21 


0062.34 


0079.83 


0052.24 


0148.75 


0063.69 


0057.24 


0138.78 




1 


1 


\ 


\ 


\ 


\ 




\ 


\ 


1 


WEEK 


0094.78 


0148.00 


0149.88 


0095.15 


0122.04 


0074.11 


0168.42 


0082.15 


0057.24 


0138.78 




1 


2 


3 


4 


5 


6 


7 


8 


9 


10 



s , / 

Unchanged 



Likewise, if the result array is shorter than any of the factors (arrays), 
the operation is repeated only for the number of elements in the 
shortest (result) array. 

The E-specifications for the arrays, DAY and WEEK, are: 



Array Specifications 



or 



1 2 3 4 5 



Reserved 

9 10 11 12 13 14 IS 16 17 18 19 20 21 22 23 24 26 26 



Array 
Name 

27 '2b 29 30 31 32 



+ttr 



of Entr.t 
33 34 Jbl36 37 38 ; 



r 



12 53 54 56 &fi i 



Reserved 

0 6' 62 63 54 66 66 6^66 69 ' 0 ■ 



'6 T' '6 'B 80 
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Processing an Array with a Single Value 

Another way in which you can process an entire array is by adding the 
same value to every element in the array (or subtracting, multiplying, 
dividing using the same value). 

Suppose the employees in the earlier example are to receive a 
commission of 1 0% of their sales, to be paid at the end of the week. 
After all daily sales have been accumulated into the WEEK array, you 
want to multiply each of the 10 elements in WEEK by the value .10 
and to place the commission amounts in another 10-element array 
called COMMIS. 

When one of the factors in an array operation is a constant or a field 
containing a value, the operation is done using the same constant or 
field on every element in the array. Thus, you would specify: 



Conditioning 
Indicators 



Table or Message Text 



Sequence 
Number 



I 



18 19 20 21 22 23 24 2S 26 27 28 29 30 31 32 33 34 3S 36 37 38 39 40 41 42 13 44 45 46 47 48 



WE 



It 



Resulting 
Indicators 



LowjEqua 

1<2 



&2 53 S4 S5 S6 57 58 59 BO 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



WEEK Array 



873.90 


155.82 


892.10 


985.40 


947.80 


148.00 


149.88 


951.50 


122.04 


741.11 


COMMIS Array 






X.10 










87.39 


15.58 


89.21 


98.54 


94.78 


14.80 


14.99 


95.15 


12.20 


74.11 
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If you were doing the same example but using one array, you would 
specify: 



Sequence 
Number 



Conditioning 
Indicators 



18 19 20 21 22 23 24 2S 26 27 



Operation 



TaUe or Message Text 



28 2930 3132 33 34 35 36 37 38 3940 41 42 13 44 45 46 47 48 



esse 



Length 



Resulting 
Indicators 



Plus|Minusjz 



Low Equal 
1<2 3=2 

56 57 58 59(60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8« 



WEEK Array 



873.90 


155.82 


822.10 


985.40 


947.80 


148.00 


149.88 


951.50 


122.04 


741.11 


WEEK Array 






XI 


.10 










961.29 


171.40 


904.31 


1083.94 


1042.58 


162.80 


164.87 


1046.65 


134.24 


815.22 
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In another example of using a single value for processing an array, a 
company is giving a 17% discount on all merchandise. You can also 
use a field or constant as both factors to place the same result in every 
element of an array in this example. The following C-specification 
shows the single field named DISCNT being subtracted from the 
single field AMOUNT, with the result placed in a five-element array 
named DUE. 



Sequence 
Number 



Conditioning 
Indicators 



7 18 19 30 21 22 23 24 2S 26 27 



Operation 



Table or Message Text 



28 2930 31 32 33 34 3S 36 37 38 39 40 41 42 13 44 45 46 47 48 



DUE 



Resulting 
Indicators 



is|MinusJz 



Low Equa 



1<2 



1=2 



56 57 58 5S 60 61 62 63 64 65 66 87 68 6970 71 72 73 74 75 76 77 78 79 G 



The value (017) in DISCNT is subtracted from the value (243) in 
AMOUNT, and the result (226) is placed in each of the five elements 
of the DUE array. 



243 



AMOUNT Field 



017 



DISCNT Field 



226 


226 


226 


226 


226 



DUE Array 



Element 1 Element 2 hlement 3 Element 4 Element 5 
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Adding All Elements within an Array 



Suppose, in addition to accumulating a monthly sales total for each 
employee, you also want to know the total of all sales each day. To 
obtain that total, you can use the XFOOT operation to add together 
(or sum) the values of all elements in the DAY array and then place 
the total in a single field called TOTDAY: 



If 



Sequence 
Number 



1 2 3 4 5 



Conditioning 
Indicators 



Operation 



Table or Message Text 



Resulting 
Indicators 



18 19 20 21 27 23 24 2S 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 13 44 45 46 47 48 



Plus|Minusjz 



Length 



High 
1>2 



Low Equal 



> 56 57 58 59 50 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8C 



l7£ 



0015.21 


0012.86 


0025,31 


0008.93 


0017.83 


0019.24 


0015.67 


0032.81 


0042.21 


0021.87 


0019.67 


0018.46 


0013.45 


0028.37 


0023.95 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

DAY Array TOTDAY Field 



in most types of array operations, as many results are produced as 
there are elements in the array. However an XFOOT operation 
produces only one result, the total of all elements; so you specify a 
single field name rather than array name for the result field. 

Also, because there is only one result, you can assign a resulting 
indicator to determine if the total is plus, minus, or zero. In this 
example, no resulting indicator was specified because the sales 
amounts will always be positive. 
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Referencing Individual Array Elements in Processing 



In addition to referencing all elements of an array, you can use an 
individual array element in processing. You can use all of the same 
operations on elements that you use on entire arrays, except for 
XFOOT and SORTA. In addition, you can also use the MVR and 
COMP operations as well as resulting indicators, because each 
operation on an element produces only one result. 

Indexing an Array 

As mentioned earlier, if a processing operation specifies an array name 
alone, the operation is automatically performed for every element of 
the array. To reference only a single element of an array, you must 
identify that element by placing a comma after the array name, 
followed by an index that points to the particular element. This index 
can be either: 

• The actual number of the element to be referenced (for example: 
ARY,9) 

• The name of a field containing the number of the element to be 
used (for example: ARY,IX). 

You will recall from Defining Arrays earlier in this chapter that the 
name used to refer to an array cannot be longer than 6 characters; and 
that when referencing individual fields, both the array name and an 
index are necessary to refer to the data. Therefore, the array name 
plus the comma plus the index cannot exceed 6 characters, unless the 
reference is specified only as factor 1 or 2. For factors 1 and 2, the 
total reference can be up to 1 0 characters long; however, the array 
name portion of the reference still can be no more than 6 characters 
(for example: SALES,INDX). 

Note: When you are referencing an array element, you must make 
sure that the index you use is an allowed one. If you use a 0, a 
number greater than the length of your array, or a negative number, 
your program will have an abnormal ending. 
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Specifying a Constant Index 

If you know exactly which element is to be used in an operation and if 
the same element is to be referenced every time, you can use a 

constant as the Index. 



Assume you have defined a seven -element array named SLS to 
contain an employee's six daily commission amounts and the total 
commission for the week. The array elements are 5-digit numbers 
with two decimal positions. 

The six daily amounts from one employee's input records are read into 
elements 1 through 6 of the array. The seventh field on the input 
record contains zeros and is read into element 7 of the array. 



03520 


02780 


04237 


03187 


01790 


02593 


00000 



SLS Array 



1 2 3 4 5 6 7 



Once the data is in the array, you would use the XFOOT operation to 
add all elements of the array and place the total in the seventh 
element: 



B 

Sequence 
Number 

1 2 3 4 5 


oi Specification Type | 


^ Processing Function | 


Conditioning 
Indicators 


Factor 1 
18 19 20 21 22 23 24 25 26 27 


Operation 
28 2930 31 32 


TaUe or Message Text 


1 Continuation! 


Resulting 
Indicators 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 


1 1 


Factor 2 
33 34 35 36 37 38 39 40 41 42 


Literal 


iBIank | 








Result Field 


Arithmetic 


Name 

•3 44 45 46 4748 


Length 
49 50 51 


IS Decimal Pos | 


is Half Adjust (H)| 


PlusjMinusjZero 


o 
z 

9 


10 


11 


Z 
12 


13 


14 


|5! Not 


16 


17 


Compare 


High 
1>2 
S4 55 


Low 
1<2 
56 57 


:qua 
1=2 
58 59 




C 


























£s 


SLSj,7 

















03520 


02780 


04237 


03187 


01790 


02593 


18107 



SLS Array 



Element 7 



5-16 



IBM System/36 Work Station Utility Guide 



The weekly total for every sales representative is always stored in the 
seventh element; therefore, the actual number 7 can be specified as 
the index. 

Also, a $25 bonus is to be added to a representative's total if the 
weekly commission exceeds $175. Thus, for every record processed, 
element 7 must first be compared to $175 to determine if the bonus is 
to be added to the contents of element 7: 



B 



Conditioning 
Indicators 



Sequence 
Number 



1 2 3 « S 



7 












C 


C 


¥ 


P 


7 














c 


[i 





Table or Message Text 



Operation 



Resulting 
Indicators 



i|Minus)z 



Length 



High 
1>2 



Low Equa 



1<2 



1=2 



16 17 18 19 20 21 22 73 24 2S 26 27 28 2930 31 32 33 34 35 36 37 38 39 40 41 43 13 44 45 46 47 48 ' 



) 56 57 58 59 BO 61 62 83 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



SLS Array 


03520 


02780 


04237 


03187 


01790 


02593 


18107 
















+ 2500 


SLS Array 


03520 


02780 


04237 


03187 


01790 


02593 


20607 



Element 7 
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Specifying a Variable Index 



On the other hand, if the array element will be different whenever a 
particular operation is performed, the index should be a field name 
rather than an actual number. In this way, the number stored in the 
index field can be changed during the program to indicate which array 
element is to be referenced. 

To repeat the example situation used earlier in Figure 5-2: Suppose 
again that your company is in the process of converting from a manual 
operation to one that uses a System/36, and you need to enter several 
hundred sales records from the prior year into the system. While the 
records need not be in any sequence, management is interested in the 
sales totals for each month, as well as the total sales for the year. 

You might use an array called SA to contain the monthly sales total: 
element 1 contains the sales for January, element 2 for February, and 
so on. When a sales record is entered, the total for that month must 
be updated to reflect the current total. This means you should 
reference (add to) only particular elements of the array. 

The contents of the SALAMT field (as shown in the C-specification 
below) must be added to one of the SA array elements for every 
record entered; therefore, an index must be used to reference only the 
individual element to be updated. Each daily record is for a different 
month, so the array element to be increased will vary each time the 
operation is done. An actual number cannot be specified as the index, 
because the SALAMT value would be added to the same element for 
every sale. Instead, you can move the leftmost two digits of the DATE 
field (the ones containing the month number, as in 100882) into a 
2-digit index field named MTH. Then, every time the ADD operation 
is done, the part of the date just stored in MTH indicates which 
element of the array is to be referenced. 



a 

Sequence 
Number 

1 2 3 4 5 


1 01 Specification Type I 


^ Processing Function | 


Conditioning 
Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 2930 31 32 


Table or Message Text 


o 

c 
c 

5 


Resulting 
Indicators 


Comimnts 

SO 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 


Ai 


1 


Factor 2 
33 34 35 36 37 38 39 40 41 42 


Literal 


c 
« 

CD 






Result Field 


Arithmetic 


Name 
13 44 45 46 47 48 


Length 

c 

49 50 51 5 


Is Half Adjust (H){ 


PlusjMinuijZero 


o 
z 

9 


10 


11 


o 
z 

12 


13 


14 


o 
Z 

15 


16 


17 


Compare 


High 
1>2 
54 55 


Low 
1<2 
56 57 


Equa 
1'2 
58 59 










C 






















































































































































C 






















































































































































C 












































































































T 










































C 












































M 


C\ 




L 


c 


A 


r 


E 














T 


H 










Bl 
















1 




1 

1 

I 


u 
1 


7 

D 


a 
1 




5/1 


\L 


[ag 


1 












C 


























T 


















R 






E 


1 


















1 


S 






















s 


[Z 






m 






\L 


0 




1 




1 










C 
















































I 


N 


V 


At 


.1 


I 




C 


A 


T 


E 




























J 




I 


0 












C 






!i 


1 














s 




L 


A 


IV 


T 












11 


: 




s 


A 




It 










S 


A 


4- 


M 


T 


h 
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21 
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2 
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E 


T 




i 
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Referencing Only Part of a Field 



When a field is referenced in an operation, all characters within that 
field are used in the processing. However, you may wish to reference 
only some of the data stored in a field. For example, an address field 
contains the city, state, and zip code, but you want to reference only 
the zip code. 

You can use the indexing capability of arrays to reference specific 
characters from an input field. You do this by setting up two arrays: 
one to contain the entire field of data, and one to hold only the 
specific characters you want to reference. First, the entire field from 
which you wish to use data is stored in another array, which was 
previously defined as containing as many 1 -byte elements as there are 
characters in the field to be referenced: 



CSZ Field (30 characters) 
ROCHESTER,bMINNb5590lbbbbbbbbb 

























































R 


0 


C 


H 


E 


S 


T 


E 


R 




b 


M 


1 


N 


N 


b 


5 


5 


9 


0 


1 


b 


b 


b 


b 


b 


b 


b 


b 


b 



CZY Array (30 elements) 



5 


5 


9 


0 


1 



ZIP Array (5 elements) 



Thus, each character of the one field is actually stored in a separate 
element of the array, and the array elements can then be referenced 
one at a time, using an index, until an element containing a specific 
character is located. This process of checking the elements of an array 
for particular data is called field scanning. 
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After scanning the elements and locating a specific character, you can 
then move that character and/or any characters (elements) on either 
side of it to a smaller array. This array will then contain the portion of 
the original input field that you wish to reference separately in 
processing operations. 

The two arrays for this program are defined with the E -specifications 
in the following example. CZY is set up to contain 30 elements, one 
for each character of the CSZ field from the input record. The five 
elements of the ZIP array will be used to contain the zip code portion 
of the CSZ field. 



Array Specifications 
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Sequence 
Number 


Specifica 




Reserved 
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-Reserved 




2 3 4 5 


6 
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10 11 
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20 21 
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75 76 77 


78 79 80 
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Searching an Array for a Specific Element 



You can search (or look up) an array to determine if a specific element 
of data is stored in the array. On the C- (processing) specification, 
you define: 

The search word to be used 

The LOKUP operation code 

The array to be searched 

The resulting indicator to be turned 
on if a condition is met 




WSU continues the array lookup, one element at a time, beginning 
with the first element, until the search condition is satisfied or until the 
end of the array is reached, whichever happens first. 
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Sorting Array Elements before a Search 



If the search is for either a low or a high condition, array elements 
must be in sequence (ascending or descending). If you are searching 
an out-of-sequence array for a high/low condition, you must first 
code a SORTA operation to ensure that the array is in its proper order. 

The following examples show the E-specifications and the 
C-specifications for sorting an array into ascending A and descending 
D order. If the sequence is left blank for a SORTA operation, the array 
is automatically sorted into ascending order. 



11 




Eion Type 1 
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Sequence 
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of E 






Let 
of 


gtfi 


erved 


1 






Number 
12 3 4 5 
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7 8 
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10 11 12 13 


Reserved 
14 15 16 17 18 19 


20 21 


22 23 24 26 26 
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Name 
29 30 31 
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36 37 38 




En 
40 4 


1 42 


£r 
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53 &4 55 56 5/ 58 
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Reserved 
61 62 63 S4 


55 66 6/ 


68 69 70 71 


72 73 74 75 77 78 79 80 
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Sequence 
Number 

1 2 3 4 5 


m Specif ication Type | 


^ Processing Function | 


Conditioning 
Indicators 


Factor 1 
18 19 20 21 22 23 24 25 26 27 


nrutrfltinr 




Table or Message Text 


1 Continuatiorl 


Resulting 
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Comments 
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Result Field 
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Compare 


High 
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Low 
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56 57 


:qua 
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58 59 
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Starting the Search at a Particular Element 



If you specify just the array name as factor 2 for a LOKUP operation, 
WSU begins the search at the first element of that array. However, 
you can also begin an array search at any element you wish by 
specifying, for factor 2, the array name followed by a comma and an 
index. As described previously, the index (whether an actual number 
or the name of a field containing a number) points to the array 
element where the search is to begin. 

In a large array where you know that the value you are searching for is 
not in a particular section of the array, you can greatly decrease 
WSU's search time by beginning the lookup at a particular element. 

Suppose you have a 300-element array named ARY that contains the 
values 001 through 300 in ascending sequence. To locate a value of 
047, only 47 elements would have to be checked before the search 
condition was satisfied, but to locate the value 289, 289 elements 
would have to be checked, //the search began at the first array 
element. 

If you divide the array, though, into three parts of 100 elements each, 
then: 

• For any value of less than 1 01 , WSU searches the first third of the 
array, beginning at element 1 . 

• For values greater than 1 00 but less than 201 , WSU searches the 
second third of the array, beginning at element 1 01 . 

• For any value greater than 200, WSU searches the last third of the 
array, beginning at element 201. 

In any case, no more than 1 00 elements have to be checked to satisfy 
the search condition. 

For this example, the number of the array element at which the search 
is to begin will vary, depending on the value being searched for. 
Three LOKUP operations are coded, only one of which is done for a 
particular value: 
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To decide which LOKUP operation is done, you must first find in 
which part of the array the value is located. The first COMP 
(compare) operation checks for a value in the first 100 elements. If 
the value Is less than 1 01 , indicating the first one-third of the array. 
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indicator 33 is set on; and if indicator 33 is on, the LOKUP operation 
beginning at element 1 is done. However, if the value is not in the 
first third of the array (indicator 33 is not on), another COMP 
operation is necessary to see if the value is in the second third of the 
array. If it is there, indicator 44 is set on, and the LOKUP operation 
that begins at element 101 is done. 

If neither indicator 33 nor indicator 44 is set on, the value must be in 
the last third of the array (if it is in the array at all). Therefore, with 
both indicators 33 and 44 off, the LOKUP operation that begins at 
element 201 is done. 

For the first LOKUP operation, you need not actually specify the 
numeric value 1 as the index (as you specify 101 for the second 
LOKUP) because, you will remember, when no index is specified with 
the array name, the search automatically begins at the first field, just as 
if the index were 1 . 

Note: Setting off indicator 44 (line 01 ) prevents an error in the 
lookup function. If the SETOF operation was not used and indicator 
44 was set on the the first cycle and indicator 33 in the second cycle, 
indicator 44 would not be set off in the second cycle because the N33 
condition would not be satisfied in line 03. Thus, both lines 04 and 
05 would be executed. The LOKUP operation in line 04 would be 
successful, and indicator 66 would turn on. The LOKUP operation in 
line 05 would not be successful, and indicator 66 would be turned off. 
Thus, a not-found condition would result even though the LOKUP 
was successful. 

If the value of the index changes, as in the following example, you 
can use an index field to contain the number of the array field, rather 
than using the actual number. In this way, you need code only one 
LOKUP operation. Of course, you must place the appropriate number 
in the index field every time before the LOKUP operation is performed, 
so an index field will not always reduce the number of specification 
statements required. 
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As shown above: First, the COMP operations are done to see whether 
the value is in the first, second, or last third of the array. Then, the 
results of the compare operations determine which number should be 
zero-added into the index field (IXFLD) before the lookup is done. 
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Determining If a Search is Successful 



At this point, we should discuss the index field and how its contents 
are changed as a result of the LOKUP operation. Before the search is 
done, you determine the value to be placed in the index field; the array 
search then begins at the element number specified. The search 
continues, one element at a time, until the search condition is satisfied 
or until the end of the array has been reached, whichever happens 
first. 

If an index field is specified, WSU puts the number of the first array 
element that satisfies the search condition into the index field. 
However, if the end of the array is reached with none of the elements 
satisfying the search, WSU puts a 1 into the index field. 

But if an actual number is specified as the index, rather than a field, 
the actual index is not changed to reflect the success of the search in 
any case. 

You can determine if a search was successful by checking to see 
whether the resulting indicator assigned has been turned on. Thus, if 
the resulting indicator is not on and an index field has been specified, 
the index field should contain the value 1, the result of an 
unsuccessful search. If the first field of an array satisfied the search 
condition, the index field would also contain the value 1 ; however, in 
this case, the resulting indicator would be on. 

Referencing an Element that Satisfies a Search 

After a successful search, you can use the data from the element that 
satisfied the condition only if you specify the array name with an 
index field for the LOKUP operation, because WSU has then placed 
the number of the field that satisfied the search into the index field. 
Therefore, specifying the array name with the index field in a later 
operation refers to the element that satisfied the search. 

However, if no index field is available (that is, you specify the array 
name alone or with a numeric index), you cannot determine the 
number of the element and, therefore, cannot reference the data. You 
can only determine if one of the array elements does contain the data 
for which you searched, according to whether the resulting indicator is 
on. 

Remember, for operations that follow an array LOKUP operation, 
specifying the array name alone refers to the entire array, rather than to 
any particular element. The only way an individual array element can 
be referenced is by specifying the array name with an index. 
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Assume you wish to search an array named CHG to look for amounts 
over $100. If you only want to determine if there are any elements 
containing a greater amount, the search can be coded like this: 
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Number 



1 2 3 4 5 



Conditioning 
Indicators 



Operation 
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If indicator 16 is off, indicating an unsuccessful search, you can then 
display a message stating that all charges are under or equal to $100. 
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With the LOKUP operation shown, however, you would have no way 
of knowing how many elements or which elements satisfied the search 
condition. If you want to know which element satisfied the search or, 
perhaps, how much over $100 the amount is, the array lookup should 
be coded with an index field: 
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The index field can be set to first contain the value 1 , so the search 
begins at the first element of the array. If the search is satisfied, the 
index field (IX) will contain the number of the first element over $100 
and the resulting indicator will be turned on. The contents of field IX 
can then be displayed to indicate which element isatisfied the search. 
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Searching an Array for More than One Element 



The previous example points out an important consideration: An array 
LOKUP operation is completed when WSU finds the first element that 
satisfies the search condition. If you wish to find all elements that 
satisfy the condition, you must code additional specifications to cause 
the program to loop back to repeat the lookup operation from the 
point where the last search was successful. 

As an example, assume your company manufactures 25 different 
items, identified by item codes 1 through 25. You use a 25-element 
array named QTY to keep track of the quantity in stock of each item: 
the first element contains the quantity of item code 1 , the second 
element contains the quantity of item code 2, and so on. Whenever 
the quantity of an item falls below 25, the plant is to produce 100 
more of that item and add them to stock. 

To determine which items are to be manufactured, your program 
searches the QTY array every week, comparing the array elements with 
a search word, MFGPT, a field that contains a value of 25. When a 
quantity is found to be less than 25 (that is, the search condition is 
low), the item code and quantity in stock are displayed, or perhaps 
written to a transaction file. 

You can see that four items must be manufactured this week: 
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The following C-specification will not locate all of the items with 
quantities less than 25; rather, this LOKUP operation will locate only 
the first quantity below 25: 
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To locate more than one element satisfying the same search condition, 
you must repeat the LOKUP operation, starting the search at the point 
where the previous search ended. You can use the GOTO and TAG 
operations to repeat the lookup. To make sure the repeated search 
begins where the last search left off, you must specify the array name 
with an index field for the LOKUP operation. The first search should 
begin at element 1 ; the contents of the index field are then updated 
after each successful search to indicate at which array element the 
next search should begin: 
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The index field (IX) is first set up to contain the value 1 (the field is 
zeroed before adding 1 because you have no way of knowing the 
contents of IX at the beginning of the program). The TAG operation 
is not done, so WSU skips this statement and does the LOKUP 
operation. 



When the first QTY element less than 25 is found, the number of the 
element (04) is placed in the index field. Providing the LOKUP 
operation was successful (that is, indicator 33 is on), the results are 
written to a file. A 1 is then added to the value in the index field, to 
indicate at which element the next search should begin. The value in 
the index field is then compared to 26 to see if the entire array (25 
fields) has been searched. If there are still array elements to be 
checked (that is, indicator 44 is on), the program branches back to dp 
the LOKUP again. The search would then begin again, only at the 
element following the last element that satisfied the search. These 
specifications would be repeated over and over until all items to be 
manufactured are located and until the end of the array is reached. 
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Recording the Results of a Search 



The specifications just described search through the QTY array to 
locate more than one element. In this case, it does no good to search 
through an array unless you know what data was found; therefore, 
you could record the results by displaying each quantity less than 25 
and its related item code or by writing the data into a transaction file. 
Following each successful search, the item code number (same as the 
number of the array element containing the quantity) is stored in the 
index field IX, and the field IX can be recorded. Displaying Arrays 
later in this chapter describes how to display individual array elements. 
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Displaying Entire Arrays 



Perhaps you want to look at the contents of an array at some point 
while the program is running or at the end of the job. An entire array 
is easily displayed with D-specifications. You specify: 



Where you want the data elements to appear on the display: 

How many elements should be included per row or column 

Whether they are to appear vertically (in columns) or 
horizontally (in rows) 

How many lines to leave between rows 

How many spaces to leave between columns 

In what line/position the elements should 
start 




• How you want the data elements to appear on the display; that is, 
if you want numeric array elements to be edited with commas, 
decimal points, and so on. (Remember, editing affects the 
spacing of the elements.) 

The above D -specification is from the program shown earlier in Figure 
5-3; the array is displayed with only one coded D-specification 
statement. WSU then uses that statement to generate instructions for 
each element of the array: 
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The constants to identify the elements on the display have to be 
coded separately, of course. However, no C-specifications are 
required in this example. 

The array display looks like this: 



SALES SUMMARY 



January 


0.00 


February 


0.00 


March 


0.00 


April 


0.00 


May 
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June 
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July 
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August 
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September 
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November 
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0.00 




***** 


GRAND TOTAL 


0.00 ***** 





When you are finished viewing these totals, please press Enter 



Displaying Individual Elements of an Array 



To display individual array elements, you must first move those 
elements to uniquely named fields and then display the fields. (WSU 
allows you to index fields only on the C-specification, not on the 
D -specification.) 

In the earlier section on Searching an Array for More than One 
Element, you saw an example of an array being searched for all the 
items with a quantity less than 25. To record the results of that search 
you might, each time a match was found, move the quantity in the IX 
field to a temporary array; then, at the end of the program, move the 
elements in the temporary array to temporary fields and display the 
fields. 
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Loading Arrays 



In the beginning of this chapter, you learned that data in an 
execution -time array such as WSU uses can be loaded in either of the 
following ways: 

• Read from an input file when the program starts 

• Created by processing done while the program is running 

• Keyed by an operator. 

The sections in this chapter on Referencing Arrays and Referencing 
Individual Array Elentents give examples of loading arrays during 
processing; this section will discuss ways of loading an array at the 
beginning of a job. 

Reading Input File Data into an Array 

When you define the array on the E-specification, WSU sets up an 
array in storage, ready to receive array data. You must also describe 
the input data to be read into the array on I -specifications, and read 
the necessary data into the array using C-specifications. The array 
must be loaded before your program can do any operations that use 
the array data, so you will probably load the array during iJ or IW 
processing. 

Fields of array data to be read from input records must be described 
on the I -specifications, which indicate where the data is located on 
the record. How the array information is described and stored 
depends on: 

• How the array data is organized on a record 

• Whether the array data is contained in one or more records. 
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I 



An input record containing array data may contain only data for that 
array or may contain both array data and other data fields to be used 
in the program. In either case, the array data is organized in one of 
these ways: 

• All array elements may occupy consecutive positions on the 
record; that is, each element immediately following another with 
no blanks or other data between the elements. 



FIdl Fid 2 Fid 3 Fid 4 Fid 5 Fid 6 



Record 



1 A B 4 8 C F 2 9 D A 2 



N 



N 

Array 



Elements 
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6 \ 



1 A 


B 4 


8 C 


F 2 


9 D 


A 2 



• The array elements may be scattered on the record in any order, 
with blanks or other input fields placed between the array 
elements. 




The way in which the data is organized and the size of the array 
generally determine the number of input records required to contain 
the array data. 
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Reading Data from Consecutive Positions 



If array elements are In order In consecutive positions on a record, 
describing and storing the data is very easy. All of the array data on 
the one record may be described on the I -specification as if it were a 
single field. Thus, only one I -specification is necessary to indicate a 
name for the field and the positions in the record where the array data 
begins and ends: 
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1 Number (1/N), E | 


1 3 Option (0),U,S 1 


Z Record Identifying Indicator, 
S ".orDS 


External Field Name 
Record Identification Codes 


1 £ Slacker Select | 


1 £ P/B/L/R . 1 


Field Location 


1 S Decimal Positions | 


RPG 
Field Name 

53 54 55 56 57 58 


^ Control Level (L1L9I 


5 Matching Fields or 
g Chaining Fields 


o 
? 

X 
63 64 


Field 
Indicators 


71 72 73 74 


1 


2 


3 


From 


To 


Plus 

65 66 


Minus 

67 68 


Zero 
Blank 

69 70 


Position 
31 33 33 34 


Z 

o 
z 

35 


|g C/Z/D 1 


|iJ Character | 


Position 
38 39 30 31 


Z 

z 

33 


IS C/Z/D 1 


1 S Character 1 


Position 
35 36 37 38 


2 

o 
z 

39 


O 
N 
<J 

40 


1 ± Character | 


Data Structure 


Data 
Structure 
Name 

7 8 9 10 11 13 


13 


0 


R 




Occurs 
n Times 

44 45 4t> 47 


Length 
48 49 50 51 
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14 


N 
IS 


D 
16 
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0 
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When you describe an input record of array data, you specify no 
decimal positions, because the description on the E-specification has 
already done so. 



a 

Sequence 
Number 
1 2 3 4 5 


0. Specification Type | 


7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 26 


Array 
Name 
2; 2b 29 30 31 32 


33 34 35 


Numtier 
of Entries 

Array 
36 37 38 39 


Length 
of 

Entry 
40 41 42 


1 

«3 


J Decimal Positions | 


,V Sequence (A/D; | 


Reserved 

46 47 48 «9 5C 3 1 E;^ b4 5h E.S 59 60 61 62 63 W o'j 66 b? 6tt 59 /O 7 1 72 73 '4 75 76 77 /6 79 80 
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By specifying the name of the array as the result field name, the data 
is automatically stored in the appropriate elements of the array as the 
input record is read. 

The C-speciflcations to read consecutive data into an array consist 
simply of a GET operation to read the record. 



a 

Sequence 
Number 

1 2 3 4 s 


01 Specification Type I 


^ Proceuing Function | 


O>nditioning 
Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 
28 2930 31 32 


Table or Message Text 


1 Continuation! 


Resulting 
Indicators 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8C 


1 


td 


Factor 2 
}3 34 35 36 37 38 3940 41 42 


Literal 


iBIankI 






Result Field 


Arithmetic 


Name 
13 44 45 46 47 48 


Length 
49 50 51 


IS Decimal Pos | 


is Half Adjust (H)| 


Plus|Minus|Zero 


I«> Not 


10 


n 


o 
z 

12 


13 


U 


[iS Not 


16 


17 


Compare 


High 
1>2 
S4 55 


Low 
1<2 
56 57 


:qua 
1=2 
58 59 


-LUL 


C 


I|W 
























ossBoimi 
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In the preceding example, the array data was on one record. In the 
following example the array data is organized consecutively on two 
records. The array data on the second record can also be described as 
a single field; you would use a MOVEA operation to move data from 
that field to the array. This is the coding necessary to load the TAX 
array: 



I 

Line 
3 4 5 


1 <» Form Tvp* 1 


Filename 
or 

Record Name 


Sequence 


j - Number (1/N), E | 


1 S Option (0). U, S 1 


S Record Identifying Indicator, 
S "VorDS 


External Field Name 
Record Identification Codes 


1 S Stacker Select | 


1 S P/8/L/R 1 


Field Location 


[ S Decimal Positions | 


RPG 
Field Name 

63 54 56 66 57 68 


2 

0 

1 

u 

59 60 


2 Matching Fields or 
g Chaining Fields 


S 

Field Record Relation 


Field 
Indicators 


71 72 73 74 


1 


2 


3 


From 


To 


Plus 

65 66 


Minus 

67 68 


Zero 

or 

Blank 

69 70 


Pojition 

J1 22 23 24 


Z 
Z 

26 


O 

N 
<J 

26 


[ y Character | 


Position 
28 29 30 31 


z 

1 

32 


O 
N 
O 

33 


[ •£ Character | 


Position 
36 36 37 38 


Z 

o 
z 

39 


Is C/Z/D 1 


1 5 Character | 


Data Structure 


Data 

Structure 
Name 

7 8 9 10 n 13 


13 
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R 
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n Times 

44 46 46 47 


Length 
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ir 

Sequence 
Number 

1 2 3 4 5 


1 oi Specification Type | 


Reserved 

7 8 9 10 11 12 13 14 15 16 17 18 19 20 2132 23 2425 26 


Array 
Name 

27 28 29 30 31 32 


1 
s 

33 34 35 


Numtier 
of Entries 
per 
Array 

36 37 38 39 


Length 
of 

Entry 
40 41 42 


£ Reserved 1 


t Decimal Positions I 


S Sequence (A/D) | 


Reserved 

»6 47 48 49 50 51 52 53 54 55 66 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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Conditioning 
Indicators 



Sequence 
Number 



1 2 3 4 5 



7 8 



18 19 20 21 22 23 24 25 26 27 



GET 



Table or Message Text 



Operation 



28 2930 31 32 33 34 35 36 37 38 39 40 41 42 13 44 45 46 47 48 



Resulting 
Indicators 



Plus|MinusjZero 



High L 
1>2 1 

! 53 S4 55 56 57)58 59160 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8C 



INPU 
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Reading Data from Scattered Positions 



When array elements are scattered on an input record, each field must 
be described separately on the i -specification to indicate where each 
item of array data begins and ends. You assign a unique field name to 
each field of array data on the input record, then code processing 
operations to move each data field individually into the appropriate 
array element. (WSU does not allow you to index fields on the 
I -specifications). 

Assume that a six-field array named EMP is set up by coding an 
E-specification. The six fields of data for the array are scattered on a 
record; additional input information (blanks and other input fields) 
exists between the fields. And, the fields are not in the order in which 
they are to be stored: 




When you describe the array data, you must identify each field by a 
unique field name on separate I -specification statements, because the 
array data is not continuous. Normal input fields can be described 
along with the array fields. 

Once the scattered fields have been described on the I -specification, 
each field of array data is stored in the array using a Z-ADD operation. 
Because each field has a unique field name and must be stored in a 
specific array element, a separate Z-ADD operation must be coded for 
each field to be stored. 
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Regardless of how many records are used to contain array data, if the 
fields are scattered on the records, each field must be individually 
loaded into its appropriate position in the array. 



T 


fWename 
or 

Record Name 


Sequence 


1 Number (1/N). E | 


Is Option (O).U.S 1 


i Identifying Indicator. 
".Of DS 


External Field Name 


1 6 Stacker Select | 


J 6 P/B/L/R 1 


Field Location 


1 S Decimal Positions | 


RPG 
Field Name 
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1 

u 

59 60 
— 1 — 1 


Z Matching Fields or 
g Chaining Fields 


- J Field Record Relation 


Field 
Indicators 




Line 


4 1 <» Form Type 


Record Identification Codes 
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From 


To 


Plus 
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1 — H 
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67 68 

— r— 


Zero 
or 
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69 7C 
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26 


B| " Ctiaracter 
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Fields containing 
array data. 
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Normal input field. 
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Fields containing - 
array data. 
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Sequence 
Number 



Reserved 

IB 16 17 18 19 20 21 22 23 24 25 26 ; 



5 37 38 



Entry 
39 40 41 4: 



49 bO 61 &2 53 54 5b i 



Reserved 
3 57 58 59 60 61 62 63 & 



65 66 67 68 69 70 71 72 ? 



5 76 77 78 79 80 



B 

Sequence 
Number 

. 

1 2 3 4 5 


1 

1- 
c 
o 

1 

to 
6 


~' Processing Function | 


Conditioning 
Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Table or Message Text 


1 Continuation! 


Resulting 
Indicators 


Comments 

BO 61 62 6364 65 66 67 68 6970 71 72 73 74 75 76 77 78 79 80 


1 1 


Factor 2 
33 34 35 36 37 38 3940 41 43 


Literal 


iBIank | 








Result Field 


Arithmetic 


Name 
13 44 4S 46 47 48 


Length 
49 SO 51 


1 

o 

5? 


g Half Adjust (H)| 


Plus|MinusjZero 


z 

9 


10 


1 1 


z 

12 


13 
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Z 
15 


16 


17 


Compare 


High 
1>2 
54 55 


Low 
1<2 
56 57 


Equa 
1=2 
58 59 
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However, a separate specification statement is not always necessary 
for each field of data to be loaded. In some cases, the same statement 
can be used for all the records, depending on whether: 

• Ail the input records for a single array are organized in the same 
format 

• The fields from different records can be assigned the same name. 

Assume that a 22-element array (ARA) is defined. The data for the 
array is scattered on six input records: 



Record 1 
2 
3 
4 
5 
6 





FLD1 




FLD2 




FLD3 




FLD4 




FLD5 




FLD6 




FLD7 




FLD8 




FLD9 




FLD10 




FLD11 




FLD12 




FLD13 




FLD14 




FLD15 




FLD16 




FLD17 




FLD18 




FLD19 




FLD20 




FLD21 




FLD22 











Although the array data is not consecutive, the four fields on each of 
the first five records are the same format on each record; the remaining 
two fields on the sixth record are in the same format as the first two 
fields on all other records. 
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Because the array data follows the same organization on all records, 
describing one set of fields actually describes the fields on all records, 
except the last. A separate I -specification should be coded to indicate 
that record 6 has only two of the fields: 



T 


Filename 
or 

Record Name 


Sequence 


1 Number (1/N). E | 


1 S Option (O).U.S 1 


5 Record Identifying Indicator, 


External Field Name 


1 S Stacker Select | 


1 S P/B/L/R 1 


Field Location 


1 S Decimal Positions | 


RPG 
Field Name 

53 54 55 6e 57 58 


^ Control Level (L1L9) 


2 Matching Fields or 
g Chaining Fields 


8 

J Field Record Relation 


Field 
Indicators 


71 72 73 74 




I Form Type 


Record Identification Codes 


Line 
3 4 5 


1 


2 


3 


From 


To 


Plus 
65 66 


Minus 
67 68 


Zero 
Blank 

69 70 


Position 
21 22 23 24 


z 

o 
z 

26 


1 oi C/Z/D 1 


s 

6 

27 


Position 
28 29 30 31 


Z 

z 

32 


IS C/Z/D 1 


1 S Character | 


Position 
36 36 37 38 


IS Not (N) J 


1 g C/Z/0 1 


1 ; Character | 


Data Structure 


Data 
Structure 
Name 

7 8 9 10 11 12 


13 


0 


R 




Occurs 

44 45 40 47 


Length 

48 49 50 51 


A 


N 
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sum 
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Note that records 1 through 5 are described in an OR relationship. 
You can assume that the array input records are in sequence, where 
record type 1 is the first record read and record type 6 is the last. 

Because the fields on the different records have the same field names, 
only one MOVE operation is necessary for each unique field name. 
The first MOVE operation, when repeated for each record, moves field 
FLDA of that record to the appropriate element of the ARA array. The 
last two moves are done for every record except the last, which does 
not have fields FLDC and FLDD. 

The fields on the input records are in the same order as they are to be 
stored in ARA, so a definite pattern is established as to where the data 
is to be moved: fields from record 1 are stored in array elements 1 
through 4, fields from record 2 in elements 5 through 8, and so on. 
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a 

Sequence 
Number 

1 2 3 4 5 


[ <» Specification Type | 


^ Processing Function | 


Conditioning 
Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 27 
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Table or Message Text 
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Indicators 


Comments 


A 


d A 


Id 




Factor 2 

3 34 35 36 37 38 3940 41 42 


Literal 


c 
m 


28 29 30 31 32 


Result Field 


Arithmetic 
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Summary 

This chapter has shown you ways in which to: 

• Define 

• Reference 

• Search 

• Display 

• Load. 

execution -time arrays in your WSU programs. For specific coding 
information, refer to: 

• Chapter 1 1 , which contains an array program 

• Chapter 1 4, which contains coding of the E-speclflcation 

• Chapter 16, which contains coding of the D -specification 

• Chapter 17, which contains coding of the C-speciflcation. 
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Chapter 6. Coding Displays 



The S- (display control) specifications describe the characteristics of 
an entire display; whereas the D- (field definition) specifications are 
coded to describe the attributes or characteristics of each of the fields 
on the display. Displays are coded using the Display Format 
Specifications Coding Sheet (Figure 6-1 ). 

This chapter includes a description of the entries you can code on the 
S- and D-specifications. 

The term this display refers to the display you are currently describing 
on the S- and D-specifications. 

For examples of coded S- and D-specifications, refer to Chapter 1 1 , 
WSU Example Programs. For detailed information on the possible 
entries on the coding form, see Chapter 16, S- (Display Control) and 
D' (Field Definition) Specifications. More about the coding and 
designing of displays can be found in the manual. Creating Displays. 

Guidelines for Planning a Display 

One of two methods can be used to plan displays and create S- and 
D-specifications for them. One method is to use display layout sheets 
for drawing displays before coding them on the S- and 
D-specifications. The other method is SDA, which may be faster. 
Refer to the manual. Creating Displays, for both methods. 
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System/36 Display Format Specifications 

Display Control Specification 



B 

Sequence 
Number 

1 2 3 4 5 


1<» Specification Type | 


Display 
Format 
Name 

7 8 9 10 11 12 13 14 


^ Format ID (WSU Only) 


- Stan Line Number 


£ Number of Lines 
S to Clear 


S 

1 

q 

21 


1 !S Return Input | 


S Reset Keyboard 
g (WSU Only) 


u Sound Alarm 


1 y Enable Function Keys | 


j g Enable Command Keys | 


a 
2930 


Z Erase Input Fields 


" Override Fields 


" Suppress Input 


2 Null Fill 


\ ^ Reserved 1 


Ig Right-to-Left Display | 


WSU Only 


Reserved 
60 61 62 63 


Key Mask 

64 6S 66 67 68 69 70 71 72 73 74 75 76 77 78 79 


g Reserved I 


Enter 
Mode 
Sequence 


t S Reserved I 


^ Priority 1 


1 

i 

1 

47 


Review 

Mode 

Record 

Identifying 

Indicators 


Insert 

Mode 

Record 

Identifying 

Indicators 


|± Start j 


42 


1 S Entry Required] 


1 £ Repeat | 


1 

t8 49 


2 
i0 51 


3 

32 53 
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56 57 
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The "H" specifications are optional. If you choose to use the "H" specifications, they must be placed between the "S" specifications 
and the "D" specifications for a display format. Use the other side of this form to code the "H" specifications. 

Field Definition Specification 



Sequence 
Number 

1 2 3 4 5 


oi Specif ication Type I 


WSU 

Field Name 
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Location 
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Input Allowed 1 


[ y Data Type | 
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jii Adjust/Fill 1 
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■D 
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Length 
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Figure 6-1 . System/36 Display Format Specifications 
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S-(DISPLAY CONTROL) SPECIFICATION 



Identification 

The Display Format Name (columns 7 through 14) is the only required 
entry on the S-specification. The name that you give the display that 
WSU creates from the S- and D -specifications can be any name you 
wish as long as it fits the guidelines specified in Chapter 16, S- and 
D- Specifications. O 

The 2-character Format ID (columns 1 5 and 1 6) allows an operator to 
select this display from the WSU display. You can also use indicators 
(see Chapter 3, Reserved Fields and Indicators to put restrictions on 
when this display can be used.O 

You can specify the exact starting line and position (Start Line 
Number) (columns 17 and 18) in which you want your display to 
start and how many lines to clear (Number of Lines to Clear) 
(columns 19 and 20) before you start the display. O O 



GT 



Sequence 
Number 



Display Control Specification 



Display 
Format 
Name 



9 10 11 12 13 14 1 



Enter 
Mode 
Sequence 



Eo 
19 20 : 



mm 



5i 

• 23 2*5 26|27 ; 



I 35 36 37 38 39 tO 41 ' 



Review 

Mode 

Record 

Identifying 

Indicators 



5 47 48 49 50 51 



Insert 

Mode 

Record 

Identifying 

Indicators 



? 68 59 60 61 62 63 



64 66 66 67 68 69 70 71 72 73 74 75 76 77 78 79 E 
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Attributes 



You can specify the following attributes for your display by entering a 
positive (Y) response for: 

• Lowercase (column 21) to have your input fields in lowercase or 
uppercase and lowercase (by using the Shift key). 0 

• Return Input (column 22) means you should have input or 
output/input fields on your display. Q 

• Sound Alarm (columns 25 and 26) causes an alarm to sound 
when your display appears. 0 

• Blink Cursor (columns 29 and 30) causes the cursor to blink 
when the display appears or when certain conditions (that you 
set) happen when the display appears. Q 



Display 
Format 
Name 



Q 9 Q 



H 

z S . 

19 20 ; 



Display Control Specification 



Enter 
Mode 
Sequence 



Review 

Mode 

Record 

Identifying 

Indicators 



\ 36 36137 : 



it 

47 t8 49 5 



Insert 

Mode 

Record 

Identifying 

Indicators 



J 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 E 



Function I Command Keys and Key l\/lasic 

You can use Enable Function Keys (column 27) and Enable Command 
Keys (column 28) to control your program's operations. A Y in these 
fields enables the keys. The Key Mask (columns 64 through 79) 
identifies the command and function keys that you want enabled or 
disabled when this display appears. 

By not enabling these keys, you prevent operators from pressing keys 
by accident and perhaps ending up with results that are not 
predictable. 




z2 J 

19 20 ; 



ii 

! 23 24 



Display Control Specification 



Enter 
Mode 
Sequence 



I 35 3613 



Review 
Mode 
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Identifying 
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Key Mask 
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6-4 



IBM System/36 Work Station Utility Guide 



Display Sequences 



A sequence of displays consists of one of more displays which you 
code in the order that they should appear during an enter mode 
sequence cycle. IJ, IW, EW, and EJ displays cannot be sequenced. 

Entries for Enter-Mode Sequence (columns 41 through 44) (see 
Chapter 2 for a discussion of the WSU modes), indicate if this display 
is first in a sequence of displays, if this display is the last in a 
sequence of displays, if you want to require an entry on the display, 
and if you want to repeat this display to accept input until the 
operator keys all of the information needed. These columns are 
ignored if the application program is not in enter mode. 



Display Control Specification 
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WSU Only 
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Key Mask 
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5 Reserved J 
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You can indicate, on the S-specification, if this display: 

• Is the first in a sequence (Y Start field) 

• Is the last in a sequence (Y End field) 

• Is in the middle of a sequence (NN or blanks in Start and End 
fields) 

• Is a sequence of only one display (YY in Start and End fields) 

• Requires an entry in an input field (Y in Entry Required f'ie\6) 

• Should be repeated (Y Repeat field). 

You should have an end display for each start display in a sequence. 
If the first display that follows IJ and IW displays is not specified as a 
start display, WSU assumes that this display is the start of the primary 
sequence. 

If you code two start displays without an end display between them, 
WSU ignores the start entry for the second display. 

If you code two end displays without a start display between them, 
WSU ignores the second end display and treats the displays that 
follow the first end display as nonsequenced displays. 

If you code neither a start display nor an end display in your program, 
WSU assumes that the first display that follows the IJ and IW is the 
start of a primary sequence and that the last display that comes before 
the EW and EJ displays is the end of the primary sequence. 
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If you code a start display but do not code an end display, WSU 
assumes that the last display in the program (other than the EW and 
E J displays) is an end display. 

See Figure 6-2 for entries in the Start and End columns for sequenced 
and nonsequenced data. 



41 (Start) 42 (End) 



Start 

primary | ^ blank 

sequence 



Display within 
the primary 
sequence 



blank 



blank 



End 

primary 
sequence 



blank 




End 

secondary 
sequence 



blank 



blank 




blank 



blank 



Figure 6-2. Entries in Start/End for Sequenced and Nonsequenced Data 
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Priority 

You can specify the expected frequency of the use of your displays by 
coding a 0, 1 , 2, or 3 in column 46. An entry of 3 represents the 
highest priority. The other priority entries, from high to low usage, are 
2, 1 , and 0. Refer to Appendix B for a discussion of assigning priority 
to display format processing. 

Preprocess 

By entering a Y in the Preprocess (column 47) field of the 
S-specification, you can specify that some processing for your display 
occur before the display is shown. See Figure 6-3 for a flowchart of 
preprocessing logic. Preprocessing is described in Chapter 7. 




No 



4 



Proceed to the 
next operation for 
this display 



Figure 6-3. Preprocessing Logic 
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Record Identifying Indicators 



The record identifying indicators you specify on the S-specification 
correspond to those on the {-specification of the file definition. 

System/36 Display Format Specifications 



Display Control Specification 
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By specifying one or more Review Mode Record Identifying Indicators 
(columns 48 through 53), you designate this display as 
review-capable for use in review mode, and you indicate that only the 
transaction file record type (s) specified can be reviewed using this 
display. 

By also specifying indicators for Insert Mode (columns 54 through 
59), you indicate that records can only be inserted after the specified 
record type(s). Note that to allow insert mode, you must specify 
record identifying indicators for both review mode and insert mode. 

See Chapter 2 for a discussion of WSU modes. 
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D-(Field Definition) Specification 



The D-speclfication (Figure 6-1) indicates the position and attributes 
of data on a display. You must code at least one D-specification after 
each S-specification. During generation, WSU creates one display 
screen format from each set of S- and D-specifications. WSU allows 
up to 245 displays per program. While there can be only one 
S-specification to describe a display, there can be any number of 
D-specification lines. 

Each D-specification statement can define a variable data field (an 
input field, output field, or an output/input field), a constant (prompt 
or constant field value), or both. Refer to the manual. Creating 
Displays, for a more detailed discussion of these fields. 

Data Fields 



Input Fields 

Input fields are fields in which you can enter data. When a program 
shows a display, input fields are normally blank. The operator then 
can type data into the input fields; the contents of the field are sent to 
the program when the operator enters the display. {Enters the display 
refers to the operator pressing the Enter key, pressing a user-enabled 
command key, or leaving a field for which auto-record-advance has 
been specified.) 

A maximum of 256 fields are allowed in a display. Of those fields, the 
maximum number of input fields is 127. 

Output Fields 

Output fields contain information that the operator cannot change, 
such as the data supplied by the program or constants/prompts. The 
contents of these fields are not returned to the WSU program when an 
operator enters the display. 

Output/Input Fields 

Output/input fields contain information that is either supplied by the 
program or specified by the display format itself. The operator can 
change the information in output/input fields. The information is 
returned to the WSU program when an operator enters the display. 
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Constant Data 

Constant data includes prompts and constant values for fields. 

Prompts 

Prompts are words on a display that can provide: 

• Headings for a display ~ 

• Descriptive names for fields 

• Operator instructions 



INVENTORT ADJUSTMENT S/ISSUES/RECEIPTS 



SELECT FUNCTION . 



ADJUSTMENTS -A 
' ISSUES -I 
RECEIPTS -R 



Press Cad key 7 to end session 



Prompts can be specified in quotation marks on the D -specification or 
stored in your message member and referenced on the D -specification 
by a 4-digit number. Also, field names from a program's file definition 
can be used as prompts. Refer to Constant Type and Constant Data in 
Chapter 16 on the D-specification for further information on coding 
prompts. 



Constant Values 



Constant values are first values for input fields that can be specified 
on the D-specification. For example, a weekly- hours- worked field 
might be initialized to 40. The constant value is returned to the WSU 
program when the display is entered. Refer to Constant Type and 
Constant Data in Chapter 16 for further information on coding 
constant values. 



Required Entries 



You need to identify your field (give its location and, perhaps a name) 
and specify whether it is for output, input, or both. The name of each 
of the fields named in your display is identified by a Field Name 
(columns 7 through 12). When you are coding the Starting Location, 
(columns 19 through 22) you need to specify on which line your field 
will begin and in which position on the line your field will start. 

You must also specify whether your field is Output Data (columns 23 
and 24), that is, only shown on the display or Input Allowed (column 
26), that is, a field into which data can be entered. 



Sequence 
Number 



12 3 4 5 



WSU 

Field Name 



Field Name 
7 8 9 10 11 12 13 14 



Field 
Length 
16 16 17 18 1 



i 36137 38 3 



3 4 i> 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 2122 23 
1 52 53 64 5S|56l67 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 7 3 74 75 76 77 78 7S 80 
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Input and Output Fields 



When you are defining your fields, you can specify the following for 
the fields: 

• Movement through fields: 

- Position Cursor (columns 32 and 33) allows you to position 
the cursor on whichever input field you want when a display 
appears. O 

- Controlled Field Exit (column 35) specifies whether the cursor 
advances automatically when a field is filled or if the Field Exit 
key must be pressed. Q 

- Auto Record Advance (column 36) controls whether all input 
fields are returned to your program automatically when the last 
field is entered. O 



e o e 




i 36137 38 3 



3 4 b 6 7 8 9 lOni;i3l115l617l8l 9 20;iZ;;] 
>|S6|57 58 59 BO 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 7< 80 



YY 
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• What goes in the fields: 



- Edit Code (column 25) allows editing (commas, decimal 
points, etc.) for numeric output fields. Figure 6-4 shows how 
you can use this entry with the Data/Edit entry in column 43 
of the J -specification. Figure 6-5 shows how this entry and 
the Date/Edit entry in column 43 of the J -specification can be 
used to edit fields that are from 3 to 6 digits long. For fields 
that are 7 to 15 digits long, WSU edits the lower order 6 digits 
and truncates the remaining digits. For example, the unedited 
field 091 1 1 481 would be edited as 1 1 /1 4/81 if column 25 
contained a Y. O 

- Data Type (column 27) specifies whether the input field is 
alphabetic, alphameric, numeric, alphameric-katakana, 
ideographic, or a combination of these types. O 

- Mandatory Fill (column 28) specifies that the operator must 
enter all or none of the input. ^ 

- Mandatory Entry (column 29) specifies that the operator must 
enter at least one character or blank in the field. 0 

- Adjust/ Fill (column 31 ) specifies if the input field is to be 
right adjusted and filled with zeros or blanks. O 

- Protect Field (columns 37 and 38) specifies if the field will be 
skipped or not. O 

- Lowercase (column 51) specifies that all alphabetic characters 
typed from the the keyboard can be displayed and sent to the 
user program in lowercase (if the Shift key is not used) or 
uppercase (if the Shift key is used). O 



o e o e o o o 
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// 
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S Self-Check 1 


y Adjust/Fill S. 1 


^ Positron Cursor j 
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Date/Edit Entry 
(Column 43 
J-Specification) 


3-Digit Negative Field 
No Decimal Positions 


5-Digit Negative Field 
2 Decimal Positions 


7-Digit Negative Field 
2 Decimal Positions 


Unedited 


Edited 


Unedited 


Edited 


Unedited 


Edited 


M 


12 N 


125 


12345 


123.45 


123454N 


12,345.45 


D 


12 N 


125 


12345 


123,45 


123454N 


12.345,45 


Y 


12 N 


125 


12345 


123,45 


123454N 


12.345,45 


Notes : 

1 . Edited refers to an edit code of J in column 25 of the D-specif ication. Unedited refers to 
a blank edit code. 

2. If a field is an output/input field and its data type is S, an unedited negative value appears 
with the minus sign as shown in the edited examples. 



Figure 6-4. Examples of a J Edit Code Used to Edit Numeric Output Fields 



Date/Edit Entry 
(Column 43 
J-Specification) 


3-Digit Field 


4-Digit Field 


5-Digit Field 


6-Digit Field 


Unedited 


Edited 


Unedited 


Edited 


Unedited 


Edited 


Unedited 


Edited 
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11/9 


1179 


11/79 
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11/14/9 


111479 


11/14/79 
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119 
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1179 


11/79 
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14/11/9 


141179 


14/11/79 


Y 


911 


9/11 


7911 


79/11 


91114 


9/11/14 


791114 


79/11/14 


Note: Edited refers to an edit code of U in column 25 of the D-specification. Unedited refers to a blank edit 
code. 



Figure 6-5. Example of a Y Edit Code Used to Edit Numeric Output Fields 
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• How the field will look: 

- High Intensity (columns 39 and 40) specifies that the field be 
brighter than normal. O 

- Blinl<i Field (columns 41 and 42) specifies that the field blink. 

o 

- Nondisplay (columns 43 and 44) specifies whether the data is 
displayed or not. ® 

- Reverse Image (columns 45 and 46) specifies that the data 
image be reversed (dark print on light background instead of 
the usual light print on a dark background). Q 

- Underline (columns 47 and 48) specifies that the data on the 
display be underlined. 0 

- Column Separator (column 49) specifies that column 
separators be inserted between the characters on a field. O 



o o o o o o 
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Constants 

Use Constant Type (column 56) and Constant Data (columns 57 
through 79) when you want WSU to supply a field when your display 
appears. If the constant is longer than the Constant Data field allows, 
use the Continuation (column 80) to code any nonblank character to 
show that your constant overflows to the following line. See Figure 
6-6 for an example of continuing constant data. Figure 6-7 shows the 
D-specification entries for coding fields and constant data. Figure 6-8 
shows more examples of coding fields, prompts, and constant data. 
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WSU Arrays 



The following information is used only when you are entering or 
displaying execution -time arrays from the display. Arrays also requ 
coding the E-specification: 



ire 



Elements Per Row or Column (columns 1 3 and 1 4) specifies the 
number of elements included per row or per column in your array. 



• Fill Direction (column 1 5) specifies whether the array elements 
appear vertically in columns or horizontally in rows. Q 

• Line Skip Factor (column 1 6) specifies the number of lines to 
leave between the rows of elements in your array. O 



Horizontal Positions Space Factor (columns 17 and 18) specifies 
the number of spaces to leave between the columns of elements in 
your array. O 
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Se/f-Check 

Use Self- Check O to get limited protection against clerical or typing 
errors. The explanation and formula for using Self-Check is covered in 
Appendix A, Using Self- Check Fields. 
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Figure 6-7. Coding Fields and Constant Data on D-Specifications 
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Figure 6-8. Examples of Coding Fields, Prompts, and Constant Data 
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Chapter 7. Coding Processing 



C- (processing) specifications provide the instructions for directing 
data to a display station, a transaction file, or a master file, as well as 
for processing data (add, subtract, and so forth). Figure 7-1 shows 
the C-specification coding form. The number of C-specifications 
following a set of S- and D-specifications depends upon the type of 
processing that needs to be done. There may be times that you do 
not need C-specifications for a display, but for most of your programs, 
you will. 

This chapter explains: 

• The entries that you can code on the C-specification and provides 
coding examples of these entries. Additional information about 
coding C-specifications can be found in: 

- Chapter 2, which describes the WSU program cycle and 
processing levels. 

- Chapter 3, which has more detailed information about the 
indicators you can use on the C-specification. 

- Chapter 1 1 , which contains example programs for which 
C-specifications have been coded. 

- Chapter 17, which provides details of the C-specitication 
entries. 

- Chapter 1 8, which contains detailed explanations of the 
operation codes. 

• The subroutines used on your C-specifications. 

• The preprocessing that can be specified on your C-specification 
before the display appears. 

• The operations that can be done using C-specifications. 
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Figure 7-1. C-Specification Coding Form 



C-Specification Entries 

Each C-specification has four areas: 

• A specified processing function 

• Conditions under which operations occur 

• Operations, operands, and results 

• Tests made on the results of the operations, and resulting 
indicators that reflect the results of the tests. 

Note: A given instruction that you code on the C-specification may 
not include an entry for each of the above areas. 
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Processing Function 

You can set the Processing Function (columns 7 and 8) to specify 
indicators that WSU turns on automatically when the processing 
function begins, or that you set on to cause any processing for that 
function to occur. The processing function indicators used by WSU 
are: 

I J (job- initiation processing level) 

IW (work-session processing level) 

ES (end-of-sequence-set processing level) 

EW (end-of-work-session processing level) 

SR (subroutine operations) 

AN or OR (to use a combination of the processing level 

indicators) 

EJ (end-of-job processing level) 

Conditions 

Use Conditioning Indicators (columns 9 through 17) to specify the 
conditions for doing the operations you want done for your program. 
You can code more than one indicator for your program by using AN 
or OR. For more information on indicators see Chapter 3, Reserved 
Fields and Indicators. The conditioning indicators used by WSU are: 



Blank (normal enter mode)* 

AC (accept command key) 

AE (accept sequence error) 

CG (current group) 

DL (delete record) 

EJ (end-of-job processing level)* 

ES (end-of-sequence-set processing level)* 

EW (end-of-work-session processing level)* 

IJ (job- initiation processing level)* 

IN (insert mode) 

IP (input to process) 

IS (initiate transaction sequence) 

IW (work-session-initiation processing level)* 

JA-JN, JP-JY (job) 

KG-KL, KQ-KY (command key) 
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PG 


(program mode) 


RC 


(recovery of work session) 


RP 


(repeated display) 


RR 


(review record) 


RS 


(resume work session) 


RU 


(rover update) 


RV 


(review mode) 


SA-SN, SP-SY 


(session level) 



U1-U8 (external) 

01-89 (general indicator) 

Note: An * after the Indicator description means that these indicators 
can also be used in Processing Function. 



Operation Codes 

Factor 1 (columns 18 through 27) and Factor 2 (columns 33 through 
42) name the fields (constants) or specify the data (literals) on which 
you want to perform your operations. See Chapter 1 7 for a discussion 
of literals. Refer to Operations in this chapter for more about the 
operations you can perform. 

Operation codes can be grouped in the following categories: 



• Arithmetic: 



- Add (ADD) 

- Subtract (SUB) 

- Multiply (MULT) 

- Divide (DIV) 

- Move remainder (MVR) 

- Zero and add (Z-ADD) 

- Zero and subtract (Z-SUB). 



• Arrays 

- Look for specific element of array (LOKUP) 

- Move data between fields (MOVEA) 

- Sorting elements (SORTA) 

- Summing the values of an array (XFOOT). 

• Branching (within C-specifications) 

- Go to (GOTO) 

- Tag (TAG) 

- Execute subroutine (EXSR). 



7-4 IBM System/36 Work Station Utility Guide 



• Comparing and testing 

- Compare (COMP) 

- Range check (RANGE). 

• Debugging (DEBUG) 

• Indicators (setting on and off) 

- Set on (SETON) 

- Setoff (SETOF). 

• Input and output 

- Master files 

— Get record (GET) 

— Write record (PUT) 

— Add new record (PUTN). 

- Transaction file 

— Get next header (GETNH) 

— Get next record (GETNR) 

— Get previous header (GETPH) 

— Get previous record (GETPR) 

— Write record (PUT). 

- Messages/ Displays 

— Display information message (I MSG) 

— Display diagnostic message (MSG) 

— Show a display (PUTS). 



• Move 

- Move (MOVE) 

- Move left (MOVEL). 

• Subroutine 

- Begin subroutine (BEGSR) 

- Assign priority (PRTY) 

- End subroutine (ENDSR). 



Results 



Result Field (columns 43 through 52) includes descriptions of the 
results of the operations performed. Name (columns 43 through 48) 
and Length (columns 49 through 51 ) name the field and the length of 
the field that contains the results of the operation or the fields or literal 
upon which the operation is done. The result field can also be broken 
down into the number of Decimal Positions (column 52) and (Half 
Adjust (rounded) (column 53). 




Coding Processing 



7-5 



Code the field length for a result field long enough to hold the longest 
possible result. If the result field is too short, significant digits can be 
lost, or the result can be unpredictable depending on the contents of 
the fields at the time the operation is performed. For example, to add 
field A (8 positions long with 4 decimal places) to field B (10 
positions long with 6 decimal places), field C (the result field) must 
allow at least 5 positions to the left and 6 positions to the right of the 
decimal. 

9999.0000 Field A 

0001.111111 Field B 

1 0000.1 11111 Field C (result field) 

In this case, field C was defined as 1 1 positions long with 6 decimal 
places. Some of the numbers to the right of the decimal could be lost 
without significantly changing the meaning of the result. However, if 
field C was defined as 10 positions long with 6 decimal positions, a 
significant digit to the left of the decimal would be lost. Field C in 
this case would be 0000.1 11111; the meaning of the result has 
significantly changed. 

Those result fields defined as packed fields on I -specifications can 
have their lengths defined again by this entry. The result field length 
must allow for the unpacked length of a field. 

For example, assume FIELDS is a packed field, 4 positions long. If 
FIELDS is used as a result field on a C-specification, the length can be 
specified either as 6 or as 7. If a length is not specified, WSU 
assumes the greater of the two possibilities, which in this example is 
7. Resulting Indicators (columns 54 through 59) indicate the results 
of an arithmetic operation or specify which indicators are to be set on 
or off for your operations. 

Comments 

While Comments (columns 60 through 80) do not affect WSU 
operation, they do help document your program. 



a 

Sequence 
Number 

1 2 3 4 5 


1 o> Specification Type 1 


^ Processing Function | 


Conditioning 
Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 2/ 


Operation 

28 2930 31 32 


Table or Message Text 


1 Continuation! 


Resulting 
Indicators 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 


1 1 


Factor 2 

33 34 35 36 3 7 38 39 40 41 42 


Literal 


iBIankI 








Result Field 


Arithmetic 


Name 

«3 44 45 46 47 48 


Length 
49 50 51 


IS Decimal Pos j 


IS Half Adjust (HH 


Plus|Minus{Zero 


|« Not 


10 


11 


z 

12 


13 


14 


2 
IS 


te 


17 


Compare 


High 
1>2 
M 55 


Low 
1<2 
56 57 


:qua 
3=2 
58 59 




i 




.1 




1 














• m n — - 


PUTS 


















SET ISSUES DISPL^ 



7-6 



IBM System/36 Work Station Utility Guide 



Subroutines 



A subroutine consists of one or more operations that you code at the 
end of your program. Subroutines consist of C-specifications only; 
they do not have associated displays. 

In the following description of subroutines, letters O through O 
reference items in Figure 7-2. 

Begin a subroutine by coding its name in factor 1 followed by the 
BEGSR operation code O- A subroutine name can be 1 to 6 
characters long, and must begin in column 18 with an alphabetic 
character. Remaining characters must be alphameric with no 
embedded blanks. Each subroutine in your program must have a 
name. A subroutine cannot have the same name as another 
subroutine, a label for a TAG or ENDSR operation, or a field defined in 
the program. 

If a subroutine requires priority, code the PRTY operation after the 
BEGSR operation. Refer to Chapter 18, Operation Codes, for an 
explanation of the PRTY operation. 

An entry of SR in Processing Function (columns 7 and 8) is optional 
on each subroutine C- specification O- Indicate the last line of a 
subroutine with the ENDSR operation O- You must code ENDSR 
before you can code another subroutine. 

Factor 1 of the ENDSR operation can contain a name O- This name 
indicates a line to which a GOTO within the subroutine can branch. 

The GOTO operation within a subroutine can branch only to another 
line in the same subroutine. You can condition operations within a 
subroutine by indicators in columns 9 through 17. Also, fields used 
by the subroutine can be defined within or outside of the subroutine. 

If the MSG operation Is used in a subroutine, the current display is 
shown, and processing returns to the first C-specification for the 
display. 

You can code several subroutines in your program in any order; 
however, you cannot code a subroutine within a subroutine. You can 
code all operations except EXSR in a subroutine. This means that a 
subroutine cannot call another subroutine or itself. 

Even though you code subroutines at the end of your program, they 
are run whenever an EXSR operation calls the subroutine Q (Figure 
7-2). EXSR causes a branch to the subroutine named in factor 2. 
When the subroutine ends, the operation following the EXSR 
operation receives control. You can use indicators in columns 9 
through 17 to condition when the EXSR operation should run. 
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Figure 7-2. Sample Subroutine 



7-8 IBM System/36 Work Station Utility Guide 



Preprocessing 



Preprocessing allows you additional control of displays. 
You can use preprocessing to: 

• Initialize values of output fields or output/input fields. 

• Determine whether to show a display. 

• Back out totals during review mode. 

• Provide a common end-of-processing routine for several displays. 

WSU does not automatically show a display that has Y coded in 
Preprocess (column 47) of its S-specification. Instead, WSU first 
periforms the C-specifications for the display. Then to show the 
display, you can issue a PUTS operation for the display. If a PUTS 
operation causes the display to appear, operators can respond to the 
display. When an operator enters the display, processing resumes 
with the operation following the PUTS operation. 

You can code any number of PUTS operations to the preprocessed 
display. 

When a PUTS occurs for a preprocessed display from another display 
(display 1 uses a PUTS to show display 2 in the following example), 
processing starts at the first C-specification, and the display is not 
shown. 

A display can issue a PUTS operation for itself. After the display is 
shown, processing resumes at the operation that follows the PUTS. 




c 



c 
c 

c 
c 
c 
c 
c 




PUTS Display 2 
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You must code C-specifications for displays that WSU preprocesses. 
Because a display that does not allow operator input cannot have 
associated processing, do not specify N for Reset Keyboard (column 
23 of an S-specification) and preprocessing for the same display. 

As the following shows, a PUTS to a preprocessed display from 
another display causes the processing to begin. 



PPR 




A PUTS or MSG operation within the preprocessed display causes the 
display to appear O- An I MSG operation does not cause the display 
to appear; each I MSG operation only adds a message to the bottom 
line of the current display. 




If an operator selects a preprocessed display by means of the WSU 
display, or if a preprocessed display is selected by WSU for review 
mode or insert mode, C-specification processing begins, and a PUTS 
operation is required to show the display. 
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Operations 



WSU allows you to perform many different types of operations on 
your data. Special codes, which are entered on the processing 
specifications, indicate the operation to be performed. Usually these 
codes are just abbreviations of the name of the operation. 

Arithmetic Operations 

The arithmetic operations are: 

• ADD adds factor 1 to factor 2 and places the sum in the result 
field. 

• DIV (divide) divides factor 1 (dividend) by factor 2 (divisor) and 
places the result (quotient) in the result field. 

• MULT (multiply) multiplies factor 1 by factor 2 and places the 
product in the result field. 

• MVR (move remainder): moves the remainder from the previous 
divide operation to the result field. 

• SUB (subtract) subtracts factor 2 from factor 1 and places the 
difference in the result field. 

• Z-ADD (zero and add) places zeros in the result field and then 
adds factor 2 to the field and places the sum in the result field. 

• Z-SUB (zero and subtract) places zeros in the result field and then 
subtracts factor 2 from the field and places the difference in the 
result field. 

For these operations, factor 1 and factor 2 (if not blank) must be 
numeric fields or numeric literals, and the result field must be numeric. 

All arithmetic operations do decimal alignment. Even though 
truncating may occur, the position of the decimal point in the result 
field does not change. For arithmetic operations that use all three 
fields, factor 1 , factor 2, and the result field, two or all can be the 
same field, or all can be different fields. 

The length of any field in an arithmetic operation canhot exceed 1 5 
digits. If the result exceeds 1 5 digits, digits may drop from either or 
both ends depending on the location of the decimal point. The results 
of all operations are signed (+ or -), and the sign is in the zoned 
portion of the rightmost digit. Refer to Chapter 4, Coding Files for a 
discussion of data formats. 
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Arithmetic operations cannot result in negative zero. A zero has a plus 
zone. You can code the following indicators in columns 54 through 
59 to signal whether the results of an arithmetic operation are plus 
(columns 54 and 55), minus (columns 56 and 57), or zero (columns 
58 and 59): 

AE 

EJ 

ES 



EW 



JA-JN, JP-JY 
KG-KU KQ-KY 
SA-SN, SP-SY 
U1-U8 
01-89 

Refer to Chapter 3, Reserved Fields and Indicators, for an explanation 
of these indicators. 
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Array Operations 



WSU provides the following operations for array operations in a WSU 
program: 

• LOKUP (look for specific element of array) causes the search to 
be made for the next instance of a specific element in an array. If 
the searched-for element is found, the number or position of this 
element (not its contents) is placed in the index field. In this way, 
the actual element that satisfies the LOKUP operation can be used 
in later calculations. 



For examples of looking up arrays, see Figures 7-3 and 7-4. 



• MOVEA (move array data between arrays and array fields) 
transfers characters from the leftmost positions of factor 2 to the 
leftmost positions of the result field. 

Figure 7-5 illustrates the use of the MOVEA operation. 

• SORTA (sorting elements) allows you to sequence the elements of 
an array during running of a program. You can ensure that the 
elements of the array are in the proper sequence for a LOKUP 
operation by performing a SORTA operation. If you have an array 
of ideographic characters, do not use SORTA to sequence the 
array. 

For examples of the SORTA operation, see Figure 7-6. 

XFOOT (summing the values of an array) is used only on numeric 
arrays to add the elements of the array together and place the sum 
into the field specified as the result field. 

For information on how to code arrays and array operations, refer to 
Chapter 5, Coding Arrays, and Chapter 14, E- (Array) Specifications. 



Conditioning 
Indicators 



Sequence 
Number 



1 2 3 4 5 



Operation 



Table or Message Text 



18 19 20 21 22 23 24 2S 26 27 28 3930 31 32 33 34 35 36 37 38 3940 41 42 13 44 45 46 47 48 



Resulting 
Indicators 



i[Minus|Zer 



Low Equa 
1<2 1=2 

56 57)58 59|60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



Figure 7-3. Array Lookup: Starting at a Particular Array Item 



I 
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Array Specifications 



Sequence 
Number 
1 2 3 4 5 



Reserved 

9 10 1112 13 14 15 16 17 18 19 20 21 22 23 24 25 26 



?? 28 2930 31 32 3: 



Numhei 
of Entriei 



"i|i|B" 



Resenwd 

1 62 S3 54 66 S6 5/58 5!«60 61 62 63 64 66 66 67 68 69 70 71 72 73 74 76 76 77 78 79 8 



Figure 7-4. LOKUP Operation for an Array 



EMPNOS, a 1100-element array of employee numbers, is read in at 
execution time from tlie file. 
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Sequence Numbers 00100 and 00200 

The first calculation specification is a LOKUP of EMPNOS 
to find the element nearest to, but higher in sequence than, 
the search word 100336. If this element is found in the 
array, indicator 20 turns on, and the GOTO in line 00200 is 
performed. Indicator 20 indicates only whether or not the 
searched -for element exists in the array. 

Sequence Numbers 00300 through 01000 

The specification on line 00400 shows essentially the same 
LOKUP operation. Indicator 20 turns on when the first 
element higher in sequence than 100336 is found. 
However, in this LOKUP operation, the array EMPNOS is 
indexed by the field I NX. This index field was set to 1 in 
line 00300, so the LOKUP begins at the first element of 
EMPNOS. If the searched -for element is found, 
the number of this element (not its contents} is placed in 
the field INX. In this way, the actual element that satisfied 
the LOKUP can be used in subsequent calculation 
operations, as in line 00600. If no element was found to 
satisfy the LOKUP, the field INX is reset to 1 . 
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S/36 WSU Processing Specifications 



Sequence 
Number 



Conditioning 



18 19 20 21 22 23 24 2S 26 27 28 29 30 31 32 



Table or Message Text 



33 34 35 36 3 7 38 39 40 41 42 13 44 45 46 47 48 



Resulting 
Indicators 



Plu s|Minu^ ero 



Compare 



Low Equa 



56 57 58 59 BO 61 62 63 64 65 66 67 68 6970 71 72 73 74 75 76 77 78 79 8C 



ARRX 

1,2|3,4[5,6|7,8|9,0 
^]>"One Element 
[l,2[3,4[5,6|7,8|9,o| 



Before 
MOVE A 



After 
MOVEA 



ARRY 

|a,a|b,b|c,c|d,d|E|E|f,f| 

^^>One Element 
|i,2|3.4|5,6|7,8|9,0|f,f| 



Example: Ai . :^v-to-array move. 
Index result field. 
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or 



Sequence 
Number 



1 2 3 4 5 



1 i 



Conditioning 
Indicators 



Operation 



Table or Message Text 



18 19 20 21 22 23 2425 26 27 28 29 30 31 32 33 34 35 36 37 38 3940 41 42 13 44 45 46 47 48 



4RRX 



Resulting 
Indicators 



Plus|Minus)Ze 



Compare 



Low ^qua 

:=2 
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55|S6 57 



58 59 BO 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8C 



ARRX 



|12 


34 


56 


78 


9 0| 





One Element 



[l 2|3 4|5 el? 8|9 0| 



Before 
MOVEA 



After 
MOVEA 



ARRY 

A a|b b|c c|d d|e E 
^|^]i^One Element 

A a|b b|i 2|3 4|5 6 



Figure 7-5 (Part 1 of 3). MOVEA Operation 
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Example: Array-to-array move. 
No indexing, different length 
array elements. 
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Sequence 
NumtMf 



Conditioning 
Indicators 



Operation 



Table or Message Text 



18 19 20 21 22 23 2428 26 37 28 2930 31 32 83 34 35 36 37 38 3940 41 42 13 44 4S 46 47 48 
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Length 



Resulting 
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1 2|3 4|5 6|7 8|9 o[ 
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1 213 4I5 el? slg 0 



Before 
MOVEA 



After 
MOVEA 



ARRZ 

A A a|b b b|c c c|d D D 



One Element 



I 1 2 3I4 5 el? 8 9|o D d[ 



Example: Array-to-array move. 
Index factor 2, different length 
array elements. 
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Sequence 
Number 



12 3 4 5 
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After 
MOVEA 
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•One Element 
I? 8 9|0 B b|c C c|d D d| 



Figure 7-5 (Part 2 of 3). MOVEA Operation 
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Example: Field-to-array move. 
No indexing on array. 
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ET 



Sequence 
Number 



Conditioning 
Indicators 



18 19 20 21 22 23 24 25 26 27 28 2930 31 32 



Table or Message Text 
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Example: Array-to-field move. 
Variable indexing. 
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Figure 7-5 (Part 3 of 3). MOVEA Operation 
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Array Specifications 
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Figure 7-6. SORTA Operation 

In this figure the array ARY is sorted into ascending order because no 
entry is specified for sequence (column 45) in the array specifications. 
ARYA is sorted into ascending order because column 45 of the array 
specifications contains A; ARYD is sorted into descending order 
because column 45 contains D. 
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Branching Operations 



Operations run in the order in which you code them on the 
C-specifications. Sometimes, however, you might want to skip several 
operations when certain conditions occur or you might want to do 
several operations repeatedly. The GOTO and TAG operations allow 
branching within C-specifications for a display, for a subroutine, or for 
a processing level. 

• GOTO (go to) allows you to skip instructions and go to a TAG or 
ENDSR line. You can use GOTO to branch to a previous 
operation or to an operation that follows the GOTO operation. 
You cannot use GOTO to branch outside of C-specifications for a 
display, subroutine, or processing level. 

• TAG (tag) names the line that a GOTO operation can branch to. 
Refer to Figure 7-7 for examples of coding GOTO and TAG. 
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Do the multiplication and 
then unconditionally branch 
to line 00200. 
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If the operations have not turned on indicator 1 5, 
branch to RTN2 on line 00140. 
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The processing is skipped when the indicator 27 
is off and indicator 45 is on. 
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Figure 7-7. GOTO and TAG Operations 
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Comparing and Testing Operations 



The operations for comparing and testing are COMP and RANGE. 
Fields do not change because of these operations. 

• COMP (compare) compares factor 1 with factor 2. 

• RANGE (range check) compares factor 1 with both factor 2 and 
the result field. 



Comparing Factor 1 to a Field or Literal 



The COMP operation allows a field or literal to be compared with one 
or more fields. As a result of the compare, indicators turn on as 
follows: 



High: Factor 1 is greater than factor 2 
Low: Factor 1 is less than factor 2 



Equal: 



Factor 1 equals factor 2 



Factor 1 and factor 2 must be the same data type; both alphabetic, 
both numeric, or both ideographic. Coding a High or Low compare 
operation with ideographic characters will produce unpredictable 
results (refer to Ideographic Sort Guide, SC09-1056 for details). 

The data is automatically aligned before the compare; If the data is 
alphameric or ideographic, it is aligned to the leftmost character. If 
one factor is shorter, the unused positions fill with blanks (Figure 
7-8). The maximum length for compared alphameric data is 256 
characters. 

If the data is numeric, it aligns according to the decimal point. Any 
missing digits fill with zeros (Figure 7-9). The maximum length of 
compared numeric data is 15 digits. 

Note: The actual alignment and filling with blanks or zeros is done 
in a separate work area. Factor 1 is not changed. 



|A,A,A,A,A,A, 
|A,A|A,A,A,A, 

.A. A. A. A. A. A. 
,A,A|A| I I , 



Equal Length 
Alphameric Data 



Unequal Length 
Alphameric Data 



Three Blanks 
Figure 7-8. Comparing Alphameric Fields 



■ 1. 5.6.7,9.5, 
i2. 1 .0.5.7 .6. 

.2.5.4.3..2.0. 



Equal Length 
Numeric Fields 



Unequal Length 
Numeric Fields 



Figure 7-9. Comparing Numeric Fields 
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Figure 7-10 shows C-specifications for compare operations. 

Line 00100: The contents of the field SLS82 (1982 sales) are 
compared with the contents of SLS81 . Indicators 21 , 26, and 30 are 
set off as the result of the COMP operation. If 1982 sales exceed 
1981 sales, resulting indicator 21 turns on; if 1982 sales are less than 
1 981 sales, indicator 26 turns on; if the 2 years had equal sales, 
indicator 30 turns on. 

Line 00200: The alphameric constant OCTOBER is compared with the 
contents of the field named MONTH (which must also be defined as 
alphameric) . Indicators 1 3 and 1 5 are set off as the result of the 
COMP operation. If the MONTH field does not contain the word 
OCTOBER, indicator 13 turns on; if it does, indicator 15 turns on after 
the compare operation. 

Line 00300: The contents of the field named GRSPAY (which must 
be numeric) decimal-aligns with numeric constant 1250.00. 
Indicators 04 and 05 are set off as the result of the COMP operation. 
If the value in field GRSPAY is greater than or equal to 1250.00, 
indicator 04 turns on; if the value in field GRSPAY is less than 
1250.00, indicator 05 turns on. 

Line 00400: The contents of the field NETPAY (which must be 
numeric) is decimal-aligned with numeric constant 0, and then 
compared to it. Indicator 10 is set off as the result of the COMP 
operation. If NETPAY is greater than 0 or equal to 0, indicator 10 
turns on. 

Line 00500: The contents of the field MONTH (which must be 
alphameric) is compared with a blank. Indicator 20 is set off as the 
result of the COMP operation. If MONTH is blank, indicator 20 turns 
on. 
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Figure 7-10. Compare (COMP) Operations 
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Comparing Factor 1 to a Table 

The CO MP operation can compare factor 1 to an array or a table of 
values (element by element) that is defined in columns 33 through 52. 
The following coding rules apply: 

• Factor 1 must be the same data type (alphabetic, numeric, or 
ideographic) as the table entries. Coding a High or Low compare 
operation with ideographic characters will produce unpredictable 
results (refer to /f/eo5r/'a/?/7/c Sorf (jt//t/e, SC09- 1056 for details). 

• Table entries must either be field names or literals and cannot be a 
combination of the two. Table entries must be of one type; 
alphameric and numeric entries cannot be in the same table. 
Ideographic data is treated as alphameric data. 

• If factor 1 and a table entry are different lengths, WSU uses the 
length of the longer value. Alphameric and ideographic data is 
aligned on the leftmost character, and unused positions in the 
shorter value are filled with blanks. Numeric data is aligned on the 
decimal point. Missing digits in the shorter value are filled with 
zeros. 

• A semicolon (;) separates table elements. 

• Continue a table to columns 7 through 52 of a second 
specification line by coding any character except a blank in 
column 53 of the first specification line. For a continued table, the 
first line must end with a semicolon. The second line of the table 
must begin with a left-adjusted table entry. Refer to the second 
COMP example in Figure 7-11 for an example of continuing a 
table. 

A table of values cannot be continued to a third line. Do not 
begin the second line of the table with an asterisk (*) in column 7 
because WSU treats such lines as comments. 

• A table of literals cannot have more than 140 positions. To 
calculate the number of positions in a table, multiply the number 
of elements by the following: 

- For alphameric literals, the number of characters (excluding 
apostrophes) in the longest one. 

- For numeric literals, the maximum number of digits to the left 
of the decimal point plus the maximum number of digits to the 
right of the decimal point. This sum must not exceed 1 5. 

- For ideographic literals, two plus twice the number of 
characters in the longest one. 

• A table of field names can have as many as 10 names. 
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Figure 7-11. Examples of COM P Operations Using Tables 

As a result of the comparison, the low and equal indicators are set off; 
then indicators turn on as follows: 

High: Not used. 

Low: The value of the field named by factor 1 is not an element 
in the table. 

Equal: The value of the field named by factor 1 is an element in 
the table. 
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Range Operation 



The RANGE operation can be used to test if a field or literal has a 
value that is between two other values (compares factor 1 with both 
factor 2 and the result field). Refer to Chapter 18, Operation Codes, 
for more about the use of indicators in the RANGE operation. Figure 
7-12 shows examples of the RANGE operation. 
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Figure 7-12. Examples of the RANGE Operations 



Debugging Operation 

The operation for debugging (a means of detecting errors) a WSU 
program while it runs is DEBUG. If DEBUG-YES is specified in the 
procedure that calls the program, WSU shows a display of debugging 
information when the DEBUG operation is encountered. 

Chapters 9, 1 7, and 1 8 contain more information on debugging. 
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Indicator Operations (Setting On and Off) 

The SEtON and SETOF operations set the following indicators on or 
off: 

AC 

AE 

EJ 

ES 

EW 

IP 

IS 

JA-JN, JP-JY 

KG-KL KQ-KY 

PG 

RC 

RP 

RS 

SA-SN, SP-SY 

U1-U8 

01-89 

Refer to Chapter 3, Reserved Fields and Indicators, for a review of 
indicator usage. 

Input and Output Operations 

WSU provides the following operations to control input and output for 
files, to show messages on a display, to show a display, and to get the 
system time of day and system date: 

• GET (get a master file record) reads a record from the master file. 
The master file data can also be updated by the program. 

• GETNH (get the next header record from the transaction file) 
reads the next logical header record from the transaction file up to 
the end of a chain of records. 

• GETNR (get the next record from the transaction file) reads the 
next logical record from the transaction file up to the end of a 
chain of records. 

• GETPH (get the previous header record from the transaction file) 
reads the previous logical header record from the transaction file 
up to the beginning of a chain of records. The record is read only; 
it is not displayed. 
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• GETPR (get the previous record from the transaction file) reads 
the previous logical record from the transaction file up to the 
beginning of a chain of records. The record is read only; it is not 
displayed. 

For a GETNH, GETNR, GETPH, or GETPR operation, if a transaction 
file is not specified in a WSU program, the operations cannot be 
coded. These operations cause terminal errors during program 
compiling. 

• I MSG (display an information message) causes a user-defined 
message to be shown on the bottom line of the current display. 

Figure 7-13 shows examples of the IMSG operation. 
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Figure 7-13. Examples of the IMSG Operation 
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• MSG (display a diagnostic message) interrupts the processing of a 
display and causes the current display to be imnnediately shown 
with a user message on the bottom line of the display. The 
message overlays any data that is on the bottom line of the 
display. 

Figure 7-14 shows examples of the MSG operation. 
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Figure 7-14. Examples of the MSG Operation 
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• PUT (write a transaction file or master file record) writes one 
record to the transaction file or a master file. 



If the PUT operation does not specify a record type, WSU refers to 
the most recent get operation that occurred for the file since the 
most recent mode change and assumes that the record type 
recognized and saved from this operation is the record type for the 
PUT operation. 

The following summarizes the PUT operation: 
Transaction File Record PUT 



Mode 


Record Type in 
Columns 54 
and 55 


Blanks in Columns 54 
and 55 (see notes) 


Enter 


Adds a record to the 
file 


Updates the last record 
read using GETNR, 
GETNH, GETPR, 
GETPH 


Review 


Updates the 
displayed record 


Updates the last record 
read using GETNR, 
GETNH, GETPR, 
GETPH 


Insert 


Inserts a record after 
the displayed record 


Updates the last record 
read using GETNR, 
GETNH, GETPR, 
GETPH 



Notes: 

1 . If a PUT operation without a record type runs and one of the GET 
operations has not occurred for a record since the most recent 
mode change, WSU does one of the following: 

• Sets on the error indicator coded on the T-specification and 
places an error code in *ERROR. 

• Displays WSU message 0803 and an error code at the system 
console if an error indicator has not been coded on the 
T-specification. 

2. If the PUT operation occurs after a Roll or Page Record Group 
command key is used to start a review function and a record type 
is satisfied, the transaction file record that was first found to 
satisfy the request is the record that is updated by the PUT 
operation. 
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Master File Record PUT 



Mode 


Blanks in Columns 54 and 55 (see note) 


Enter 


Updates the last record read using GET 


Review 


Updates the last record read using GET 


insert 


Updates the last record read using GET 



Note: If a PUT operation without an ID runs and a get operation has 
not occurred for a record since the most recent mode change, WSU 
does one of the following: 

• Sets on the error Indicator coded on the M -specification and 
places an error code in *ERROR. 

• Displays WSU message 0803 and an error code at the system 
console if an error indicator has not been coded on the 

M -specification. 

• PUTN (add a record to a master file) adds one record to a master 

file. 

• PUTS (show a display) causes the display named in factor 2 to be 
selected for processing. During the processing of a display, the 
programmed processing can be modified by means of the PUTS 
operation. See Using PUTS in Special Processing Level 
Calculations later in this chapter. 

• TIME (get the time of day and date) moves the system time of day 
or the system time of day and the system date into the result field. 

The format of the time of day is hhmmss, where hh specifies hours 
of the 24- hour clock, mm specifies minutes, and ss specifies 
seconds. 

The format of the system date is determined by the system 
configuration. This format can be mmddyy, ddmmyy, or yymmdd, 
where mm specifies the month, dd specifies the day, and yy 
specifies the last two digits of the year. 

The system date placed in the result field might not match the 
program date that the UDATE field contains. 

Refer to the System Reference manual for a description of the 
system date, program date, and system time of day. 
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Move Operations 

The move operations are MOVE and MOVEL (move left). These 
operations move (copy) part or ail of factor 2 to the result field. 
Factor 2 does not change, and factor 1 and columns 54 through 59 
must be blank. 

• MOVE (move) moves all or part of factor 2 into the result field; 
moving begins with the rightmost character. 

The MOVE operation can be used to change numeric data into 
alphameric data and alphameric data into numeric data. 

Figure 7-1 5 shows examples of the MOVE operation. 

• MOVEL (move left) moves all or part of factor 2 into the result 
field; moving begins with the leftmost character. 

Figure 7-16 summarizes the MOVEL operation. 
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Figure 7-15. MOVE Operation 



Coding Processing 7-31 



Factor 2 and Result Field Same Length 
Factor 2 



a. Numeric 



b. Numeric 



c. Alphameric 



d. Alphameric 



Factor 2 Longer Than Result Field 
Factor 2 



a. Numeric 



b. Numeric 



c. Alphameric 



d. Alphameric 



.0.0.0.0 



■OiO.OiO 



| 9.0|3|1 



|9,0|3, 1 



iB, R| W,C 



.B.R.W.C 



.B.R.W.C 



■ B.R.w.c 



1>8.4.2.5. 



7.8.4.2.5, 



X.H|4.S,N, 



X|H,4|S.N. 



X|H,4,S,N | 



X|H,4 , S,N, 



Factor 2 Shorter Than Result Field 
Factor 2 



'Numeric 



a.' 



Numeric 



Alphameric 



I '. 
|7, 


"1 
8| 


4| 


2 


1 u 
|5, 


|C 


P| 


T, 


5 


|N, 




Pi 


T, 


5 




.7 


8| 


4| 


2 


|5, 


|7 


8i 


4| 


2 


|5, 


iC 


|P| 


T, 


5 


«N, 


|C 


|P| 


T, 


5 





Before MOV EL 
After MOV EL 

Before MOVEL 
After MOVEL 

Before MOVEL 
After MOVEL 

Before MOVEL 
After MOVEL 



Before MOVEL 
After MOVEL 

Before MOVEL 
After MOVEL 

Before MOVEL 
After MOVEL 



Result Field 



■7 
/ 1 


8| 4, 


2, 


5| 


BeTore muvcl 


1 b 1 D I 


/ 1 O 1 4 1 


7, 


8|4| 


2,5, 


After MOVEL 


|7i8. 


4|2|5, 


7 

/ 1 


fiy A 
oi 4| 


2| 


5| 


oeTore ivi^jvcl. 


|A, K, 


"T A r\ 
1 1 4 1 U 1 


7, 


8^4 1 


2| 


5,(5=letterN) 


After MOVEL 


|7|8, 


4, 2,N, 


P, 


H, 4| 


s, 


N, 


Before MOVEL 


,5,6| 


+ 

7,8,4, 


P| 


H,4, 


s. 


N, 


After MOVEL 


|7|8| 


4,2,5, 


P 


H, 4, 


S| 


N, 


Before MOVEL 


,A,K, 


Ti4 , D, 


P 


H,4 


S| 


N, 


After MOVEL 


|P|H| 


4,S,N, 



Result Field 



lOTo.OiO, 


I 

1| 


, A 


K|T|4, 


D, 


,9 


0,3,1, 


7, 


,5 


6,7,8t 


r + 


,2 


9,6.31 


'7, 


,A 


K,T,4, 


D, 


,B 


,R,W,C. 





Result Field 



lt3,0,9 


,4 


3 


+ 

2i 1 .0 i 


.7^8.4,2 


,5 


3 


2,1,0, 


. 1 ,3,0,9 


|4 


3 


2,1.3. 


,3,7,3,5 




,3 


|2|1i3, 


.BiR.W.C 


,X 


,H 


.4.S,A. 


,7,8,4,2 


,N 


,H 


|4.S.A, 


.B.RiW.C 


|X 


|H 


i4,Si Ai 


.CiP.T,5 


|N 


,H 


i4,Si A| 



Before MOVEL 
After MOVEL 

The arrow 4^ between numbers indicates a decima 



Numeric 



Alphameric 



Numeric 



Alphameric 



Numeric 



Alphameric 



Numeric 



Alphameric 



Numeric 

Numeric 

Alphameric 
Alphameric 



point. 



Figure 7-16. MOVEL Operation 
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Subroutine Operations 



WSU provides the following operations for defining the beginning, 
end, and priority of subroutines in a WSU program: 



• BEGSR (begin subroutine) labels the beginning of the subroutine. 

• ENDSR (end subroutine) defines the end of a subroutine and 
causes control to return to the instruction after the EXSR operation 
that called the subroutine. BEGSR and ENDSR operation must be 
coded in pairs. 

• EXSR (execute subroutine) branches to and runs the subroutine 
named in factor 2. 

• PRTY (priority) assigns a run priority (expected frequency of use) 
to the subroutine. 



Subroutines must be coded at the end of a WSU program. Any WSU 
operation except EXSR can be coded in a subroutine. See 
Subroutines in this chapter. 
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Using PUTS in Special Processing Level Calculations 

if you issue a PUTS operation from a special processing level (IJ, iW, 
ES, EW, or EJ), the processing level indicator remains on during the 
processing of the PUTS display. When the calculations for the PUTS 
display have all been done, WSU sets the indicator off and selects the 
next processing level display or the first display in the primary 
sequence. All calculations that followed the PUTS operation in the 
processing level are not done. If the display shown by the PUTS 
operation is normally part of a sequence of displays, the other displays 
in the sequence are ignored. Only the processing for the display 
shown by the PUTS operation is performed before the next processing 
level display or the first display of the primary sequence is selected. If 
the Bypass Display command key (Cmd 2) is pressed while the 
display shown by the PUTS operation is displayed, any processing for 
the display is ignored, and the next processing level display or the first 
display of the primary sequence is selected. 

The following chart shows what happens when a PUTS operation is 
used in IW processing. 



r 



IW 




These calculations 
are not done. 



AA 



IW is on 



First display 
in primary 
sequence 



IW is set to off 



J 




IW is off 
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Examples Using PUTS 



The following examples, 1 through 8, illustrate various uses of the 
PUTS operation during an enter mode sequence. 

Example 1: Use PUTS to show a display for which processing has 
been specified. 



O The PUTS operation causes Display 1 to appear. 

When the operator enters Display 1 , processing begins with its 
first C-specification. 

O Assume that Display 1 is in a sequence of displays. When the 
processing for Display 1 ends, WSU selects the next display in 
the sequence. 




o 



Coding Processing 



7-35 



Example 2: Use PUTS to show a display (Display 1 ), for which 
processing has not been specified. Display 1 will be shown on the 
top half of the display screen. Assume that Reset Keyboard (columns 
23 and 24) on the S-specification is N for this display. (Because the 
Reset Keyboard entry is N, Display 1 must be a nonsequenced display, 
which means that its S- and D-specifications must follow those S- 
and D-specifications that describe the sequenced displays in the WSU 
program.) 

Use a second PUTS to show a display (Display 2) on the bottom half 
of the display screen. Assume that Display 2 has processing, does not 
have preprocessing, does not clear the display, and is in an enter 
mode sequence of displays. 




O The first PUTS operation causes Display 1 to appear. Because 
Display 1 has neither processing specifications nor Reset 
Keyboard specified, control returns immediately to the operation 
that follows the PUTS for Display 1 . 

O The second PUTS operation causes Display 2 to appear. Display 
1 remains on the display screen. When the operator enters 
Display 2, processing begins with its first C-specification. 

O When the processing for Display 2 ends, WSU selects the next 
display in the sequence. 
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Example 3: Use PUTS to show a display that is not sequenced 
(Display 2) from a sequenced display (Display 1). Assume that 
neither Display 1 nor Display 2 has preprocessing and that both 
displays occur during an enter mode sequence. 




O The PUTS operation causes Display 2 to appear. When the 
operator enters Display 2, processing begins with its first 
C-specification. 

O When the processing for Display 2 ends, WSU shows Display 1 . 

Example 4: Use PUTS to show a display that is not sequenced 
(Display 3) from a display that is not sequenced (Display 2). Assume 
that Display 1 is in an enter mode sequence of displays and that these 
three displays do not have preprocessing. 



Sequenced 



Nonsequenced 



Nonsequenced 




O The PUTS operation from Display 1 causes Display 2 to appear. 
When the operator enters this display, processing begins with its 
first C-specification. 

O This PUTS operation from Display 2 causes Display 3 to appear. 
When the operator enters this display, processing begins with its 
first C-specification. 

O When the processing for Display 3 ends, WSU shows Display 1 
(the most recent sequenced display). 



Note: If a level indicator (such as ES, EW, or EJ) is on when 
processing for Display 3 ends, the display for that processing level 
appears next. 



Coding Processing 7-37 



Example 5: Use PUTS to show a display that has preprocessing. 



O Processing begins immediately for Display 2 when the PUTS 
operation for Display 2 occurs. Display 1 can be a processing 
level display. 

O Display 2 appears when this PUTS occurs. After Display 2 
appears, the operation that follows the PUTS operation runs. 
During review, insert, or delete modes. Display 2 does not have 
to support review, insert, or delete mode for the current record 
type. Also, during one of these modes, if the operator presses 
the Bypass Display command key (Cmd 2) in response to 
Display 2, the search for a display that supports review, insert, or 
delete mode for the current record type begins at the display 
following Display 2. 

Example 6: Use PUTS to show again a display that does not have 
preprocessing. 



O The PUTS operation causes Display 1 to reappear. When the 
operator enters Display 1 , processing begins with its first 
C-specification. 
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Example 7: Use PUTS to show a display that has preprocessing. 



Display 1 

G 



o 

o 



^ Preprocessing 
PUTS Display 1 



PUTS Display 1 



The first PUTS operation marks the end of the preprocessing and 
causes Display 1 to appear. When the operator enters Display 1, 
processing begins with the operation that follows the PUTS. 

The second PUTS operation causes Display 1 to appear. When 
the operator enters Display 1, processing begins with the 
operation that follows this PUTS. 

Note: if an MSG operation occurs between O and O, the 
preprocessing starts over. Consequently, the operator might 
have to respond to the display twice. 



Example 8: Use PUTS in a subroutine to show a display that does not 
have preprocessing and does not repeat. Assume that Display 1 is in 
an enter mode sequence of displays and that Display 2 is not in a 
sequence of displays. 




O The PUTS operation causes Display 2 to appear. When the 
operator enters Display 2, processing begins with its first 
C-specification. 

O When the processing for Display 2 ends, WSU selects Display 1, 
the most recently shown sequenced display. 
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Chapter 8. Entering and Generating a WSU 
Program 



Once you have designed your program and coded it on the 
specification sheets, you are ready to enter the code into the system 
and generate (or compile) the program. 

Entering The Code 

You can enter (or change) the file definition and the source program 
specifications for your WSU program using SEU, just as you would for 
any other language/utility. The SEU method is described here briefly. 
You will, of course, need to be familiar with SEU or, at the very least, 
have a copy of the SEU Guide at hand when you are entering or 
changing your code. 
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Entering the File Definition 



In response to the SEU procedure prompt: 




Optional 



-* 



Source entry utility (SEU) Is a program that allows you to create, 
change, remove, and locate statements In source and procedure members 



Name of member to be created or updated 



ARIOIW 



Type of SEU member 



A,F,P,R,S,T,M S 



Name of member containing SEU formats 



ISEeXTRA 



Length of statement 



Name of library containing member 



WSULIB 



Cmd3-Prev1ous menu 



(c) 1983 IBM Corp. 



you must enter: 

• The name of the member to be created/changed. Remember that 
the file definition must be a separate member from the source 
program; the name must be the one you specify on the T- or 

M -specification. 

• The type of member it is to be. You can use member type S (for 
source) for your source program if you don't want syntax 
verification. If you choose member type R (for RPG), SEU checks 
syntax as you enter the specifications; however, any special 
considerations for WSU will not be checked. 

• The name of the library to contain the member. 
The other options have defaults or are not required. 
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SEU offers these specification display types to select from: 



Select display 



1 


Z 


17 


WSU-J 


33 


FORTRAN 


49 


2 


Z- LOWER 


18 


WSU-E 


34 


COBOL 


50 


3 


H 


19 


WSU-T 


35 


SDAS 


51 


4 


U 


20 


WSU-M 


36 


SDAH 


52 


5 


F 


21 


WSU-S 


37 


SDADl 


53 


6 


G 


22 


WSU-D 


38 


SDAD2 


54 


7 


E 


23 


WSU-C 


39 


DOC-H 


55 


8 


L 


24 


SFGR-S 


40 


AUTOR 


56 


9 


T 


25 


SFGR-H 


41 


MESSAGE 


57 


10 


I 


26 


SFGR-D 


42 


SRT-HEAD 


58 


11 


J 


27 


D-CONT 


43 


SRT-RECD 


59 


12 


C 


28 


SORTH 


44 


SRT-CNST 


60 


13 


0 


29 


SORTRF 


45 


SRT-FLD 


61 


U 


p 


30 


SORTRC 


46 


MICRSYS 


62 


15 


K 


31 


SORTF 


47 


MICRSTCK 


63 


16 


A 


32 


ASSEM 


48 




64 



Enter the number of the specification display you want 

V 

You use display type F (number 5) for the F-specification(s) and 
display type I (number 10) and J (number 11) for the l-specifications. 
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Storing the File Definition 



The F-specifications and [-specifications for a givenY//e must be 
together in the same source member. However, a file definition for a 
program can be constructed in a number of ways: 

• One source member can contain the F- and I -specifications for all 
of the files that a program uses. 

If specifications for more than one file are included they can be 
arranged: 



F FILE1 
F FILE2 
F FILE3 
FILE1 



FILE2 



FILE3 



or 



F FILE1 
FILEl 



F FILE2 
FILE2 



F FILE3 
FILES 



Multiple source members in multiple libraries can contain F- and 
I -specifications for different files used by a program. 



For example: 



Library 1 



Source 
Member 1 



File 1 



Library 2 



Source 
Member 2 



File 2 



Library 3 



Source 
Member 3 



File 3 



• The F- and I -specifications for a WSU application program can be 
part of an RPG II program source member. 
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Entering the Source Program 

In response to the SEU procedure prompt: 



SEU PROCEDURE Optional- 

Source entry utility (SEU) Is a program that allows you to create, 
change, remove, and locate statements In source and procedure members 



Name of member to be created or updated 

Type of SEU member A,F,P,R,S,T,W S 

Name of member containing SEU formats fSEeXTRA 

Length of statement 

Name of library containing member MAINLIB 



Cmd3-Prev1ous menu 

(c) 1983 IBM Corp. 



you must enter: 

• The name of the member to be created/changed. Remember that 
the source program must be a separate member from the file 
definition; the name must be the one you specify on the WSU 
procedure command. 

• The type of member it is to be. If you choose member type W (for 
WSU), SEU selects some of the display specifications you need 
automatically; however, it does not verify WSU syntax. You can 
also choose member type S (for source) if you don't want SEU to 
select displays. 

• The name of the library to contain the member. The name must be 
the one you specify on the WSU procedure command. 

The other options have defaults or are not required. 
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The specifications in a WSU source program must be in the following 
order: 

J (required) 

E (if arrays are used) 



T (if a transaction file is used) 



(your program must 

use at least one file, 

either transaction or master if you 

are using WSU for data entry) 



M (if master files are used) 



(one for each master file) 



S 



D 



(for first display) 



C 



S 



(one set of S-, D-, C-specifications 



D 



for each additional display) 



► 



C 



C (subroutine(s), if any) 
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SEU offers these specification display types to select from: 



Select display 



1 


Z 


17 


WSU-J 


33 


FORTRAN 


49 


2 


Z-LOWER 


18 


WSU-E 


34 


COBOL 


50 


3 


H 


19 


WSU-T 


35 


SDAS 


51 


4 


U 


20 


WSU-M 


36 


SDAH 


52 


5 


F 


21 


WSU-S 


37 


SDADl 


53 


6 


G 


22 


WSU-D 


38 


SDAD2 


54 


7 


E 


23 


wsu-c 


39 


DOC-H 


55 


8 


L 


24 


SFGR-S 


40 


AUTOR 


56 


9 


T 


25 


SFGR-H 


41 


MESSAGE 


57 


10 


I 


26 


SFGR-D 


42 


SRT-HEAD 


58 


11 


J 


27 


D-CONT 


43 


SRT-RECD 


59 


12 


C 


28 


SORTH 


44 


SRT-CNST 


60 


13 


0 


29 


SORTRF 


45 


SRT-FLD 


61 


14 


P 


30 


SORTRC 


46 


MICRSYS 


62 


15 


K 


31 


SORTF 


47 


MICRSTCK 


63 


16 


A 


32 


ASSEM 


48 
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Enter the number of the specification display you want 

\ , J 

You use display types: 



• WSU-J (number 17) to enter the J -specification 

• WSU-E (number 18) to enter E-specifications 

• WSU-T (number 19) to enter the T-specification, and 

• WSU-M (number 20) to enter M -specifications. 

To enter the S-specification(s) for a WSU program, you can use either 
display type WSU-S (number 21) or display type SDAS (number 35). 
You CANNOT use display type SFGR-S, because SEU does not allow 
you to enter data into WSU-only fields from the SFGR-S specification 
display. 
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To enter the D -specifications for a WSU program, you have several 
display choices: 

Display type WSU-D (number 22) or 
Display type SDAD1 (number 37). 

If a constant needs to be continued on another statement, you can use 
either: 

Display type D-CONT (number 27) or 
Display type SDAD2 (number 38). 

You cannot use display type SFGR-D to enter D -specifications for a 
WSU program, because SEU does not allow you to enter data into 
WSU-only fields from the SFGR-D specification display. 

To enter C-specifications, you use display type WSU-C (number 23). 

Storing the Source Program 

The source program must be in a separate source member from the file 
definition. 
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Generating a WSU Program 



To generate your WSU program, you enter the WSU procedure 
command: either in its short form, to get the Work Station Utility 
prompt display, or in its long form, if you want to bypass the prompts. 

The information you specify is the same whether you use the prompt 
display or the command format, but the options of the prompt display 
are in a slightly different sequence from the parameters of the 
command format. 



Using the WSU Prompt Display 



To use the prompt display, enter WSU or HELP WSU on the command 
line. Or you can type WSU on the command line and press the Help 
key: 



MAIN 

Main System/36 help menu 
Select one of the following: 

1. Display a user menu 

2. Perform general system activities 

3. Use and control printers, diskettes, or tape 

4. Work with files, libraries, or folders 

5. Use programming languages and utilities 

6. Communicate with another system or user 

7. Define the system and its users 

8. Use problem determination and service 

9. Use office products 
10. Sign off the system 



Wl 



Cmd3-Previous menu Cmd7-End 

Ready for option number or command 
WSU 



Cmdl2-How to use help 



Home-Sign on menu 
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or 



you can choose option 3 of the COMPILE menu: 



COMPILE 
Use programnlng languages 
Select one of the following: 

1. RP6 II 

2. COBOL 

3. WSU 

4. BASIC 

5. FORTRAN 

6. Assembler 

7. Link-edit compiled programs 

8. Generate menus, display formats, or message members 



W5 



Cmd3-Prev1ous menu Cmd7-End 

Ready for option number or command 
3 



Cmd5-Ma1n help menu 



Home-Sign on menu 
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The following display appears, prompting for the information WSU 
needs to generate your program: 



WSU PROCEDURE 

Allows you to create programs for entering, editing, and 
changing data and for inquiring into files 

Name of source program . . . • 

Name of library MAINLIB 

Stop option HALT, NOHALT.NOSTOP, REPLACE HALT 

Source print option LIST.NOLIST.NOLISTS.NOLISTW LIST 

Size of work file in blocks 1-9999 50 

Generation option PROC,NOPROC,PGM,NOPGM PROC 

Cross-reference level 1,2,0 1 

Save display format source? N.Y N 

Cmd3-Previous menu Cffld4-Put on job queue 

(c) 1983 IBM Corp. 



Default values, representing the most common choices, are shown for 
some of the options (or parameters); you can either take the default 
values or change them. The following paragraphs describe the 
parameters and the values you can choose for them. 



Name of Source Program 



The name of the member that contains your source program is a 
required parameter. If you leave a blank here, WSU prompts for the 
source program name by asking you for the missing required 
parameter. 



Name of Library 



This parameter tells WSU the name of the library that contains your 
source program. If you do not specify the library name, WSU assumes 
the program is in the current library. If the source program is not 
found in the named (or assumed) library, WSU issues an error 
message. 
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Stop Option 



This parameter specifies how processing should proceed during 
program generation. The choices are: 



HALT If a terminal error occurs, WSU stops processing and 

issues a message to the operator. If any duplicate library 
members are found, WSU issues a message and allows 
the operator to either replace the existing member or 
cancel the WSU procedure. HALT is the default. 

NOHALT If a terminal error occurs, WSU neither stops processing 
nor issues a message to the operator. 

NOSTOP A combination of NOHALT and REPLACE: If a terminal 
error occurs, WSU does not stop processing, but if 
members with duplicate names exist, WSU automatically 
replaces them with any newly generated members. 

REPLACE If any members existing in the library have the same 

name as any program, procedure, or format members to 
be generated, WSU automatically replaces the existing 
members with the members created during this 
generation. 



If neither REPLACE nor NOSTOP is specified, a message appears for 
the operator each time a member with a duplicate name is ifound. 



Source Print Option 



This parameter specifies how much information you want WSU to 
include in the printout produced when the program is generated. The 
choices are: 



LIST Print a complete WSU program generation printout, 

including: 

- heading information. 

- source information. 

- diagnostic information. 

- display format information. 



LIST is the default value. 

NOLIST Print only diagnostic information. 

NOLISTS Print heading, source, and diagnostic information, but 
omit display format information. 

NOLISTW Print only diagnostic information and display format 
information. 

Note: The actual contents of the printout also depend on the values 
that are specified for the Generation Option and Cross- Reference 
Level parameters, as well as any errors that occur during program 
generation. 

An example of a generation printout is shown in Chapter 9, Testing 
and Debugging WSU Programs. 
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Size of Work File in Blocks 

This parameter indicates the number of blocks that WSU should 
allocate for a work file. You can choose any number from 1 through 
9999. Unless you specify otherwise, WSU allocates the default, 50 
blocks. 

Generation Option 

This parameter specifies what generation output (besides the printout) 
you want WSU to produce. The choices are: 

PROC Generate a procedure that calls the WSU program (as 
well as the subroutine program and display formats). 
PROC is the default value. 

NOPROC Generate only the program and the display formats; do 
not generate a procedure. 

PGM Generate only the WSU program; do not generate a 

procedure or the display formats. 

NOPGM Generate only the printout; do not generate a program, a 
procedure, or display formats. 

Note: The actual contents of the printout also depend on the values 
that are specified for the Source Print Opt/on and Cross- Reference 
Level parameters, as well as any errors that occur during program 
generation. 

An example of a generation printout is shown in Chapter 9, Testing 
and Debugging WSU Programs. 
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Cross- Reference Level 

This parameter describes the extent of cross-reference information you 
want WSU to produce in the generation printout. The default is 1 ; the 

choices are: 

0 Print the following: 

• Heading information 

• Source information 

• Extended diagnostics 

• Undefined indicators 

• Field names defined more than once 

• Undefined field names 

• Main storage requirements 

• Disk storage requirements 

• Procedure generated for WSU program execution 

• Diagnostic text. 

1 Print the following: 

• All information included for option 0 

• Indicators used 

• Unreferenced indicators 

• User message member codes used 

• Mode- level data field names used 

• Session -level data field names used 

• Job-level data field names used 

• Program label names used 

• Unreferenced field names. 

2 Print the following: 

• All information included for option 0 

• All information included for option 1 

• Indicator name usage cross-reference 

• Field name and label usages cross-reference. 

Note: The actual contents of the printout also depend on the values 
that are specified for the Source Print Opt/on and Generation Option 
parameters, as well as any errors that occur during program 

generation. 

An example of a generation printout is shown in Chapter 9, Testing 
and Debugging WSU Programs. 
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Save Display Format Source 



If you plan to use help displays (which cannot be generated using 
WSU), you will want to specify a Y for this option. Refer to the 
manual. Creating Displays, for information on how to use help text. 
The default is N. 



Cmd 4-Put on JOBQ 



If your job does not require input from the operator while the job is 
running, the job can be placed on the job queue. When you place a 
job on the job queue, you can continue to use your display station for 
other work instead of waiting for your job to complete. You would 
normally place long-running jobs and jobs that do not need to run 
immediately on the job queue. 
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WSU Procedure Command 



You can bypass the prompt display and enter the full WSU procedure 
command directly in the following format: 



WSU 



source member rtdme» 



source member library 
current 1 i brarv 



block size 
50 



HALT 
NOHALT 
NOSTOP 
REPLACE 



LIST 
NOLIST 
NOLISTS 
NOLISTW 



PROC 

NOPROC 

PGM 

NOPGM 



The parameters must be specified in the order shown. The order for 
the procedure command is: 

• WSU 

• Source member name 

• Source library 

• Block size 

• Stop option 

• Source print option 

• Generation option 

• Job queue option 

• Cross-reference level. 
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The WSU Generation Process 



When the WSU command is entered, either using the WSU prompt 
display or from the command display, the system displays a message: 



^ 

Input-Output M2 



WSU 

WSU AR100W,NAINLIB,50.HALT.LIST.PR0C,.1,N 
WSU procedure is running 



After a slight wait, either: 

• The printer starts your generation printout and your menu is 
displayed again (which means everything went right) 

or 

• WSU displays another message: 

r ^ 

Input-Output W2 



WSU 

WSU AR100W.MAINLIB .50 .HALT .LIST .PROC , ,1 ,N 
WSU procedure is running 

WSU-0480 Options ( 3H) 

Generation unsuccessful— terminal errors in pgm 



(which means something went wrong). 

When you respond to this message with the required 3-option, 
WSU produces an error printout. Chapter 9 describes the error 
printout and how to use it to debug your program. 
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Generation Output 

When your program is successfully generated, WSU normally creates 
the following items (in addition to the generation printout) and stores 
them in the library you specified on the J -specification: 

• A display format load member (which has the display format 
member name you gave on the J -specification) 

• A procedure member (which has the program name you gave on 
the J -specification) 

• A subroutine member (which has the same program name as the 
procedure). 

The generated printout is described in detail in Chapter 9, Testing and 
Debugging WSU Programs. 

The generated procedure member and ways in which you can modify 
it are described in the following section. 
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WSU- Generated Procedure 

The procedure that WSU generates to call a program is an MRT 
(multiple requester terminal) type of procedure. There may be times 
that you will want to modify this procedure. If so, refer to the 
Concepts and Programmer's Guide for information on how to modify 
an MRT procedure. 

Following is an example of a procedure generated for a WSU program: 

// ATTR NEP-NO,MRTMAX-© 
// REGION SIZE-© 
// LOAD #WSXI1 
// FILE NAME- A 
// IF DATAFl-Q ,DISP-OLD 
// ELSE DISP-NEW, RECORDS-© 
// FILE NAME-© ,DISP-OLD 
// RUN 

// WSX OBJLIBR-© ,OBJMBR-© ,MSGLIBR-© ,MSGMBR-©, 
// FMTLIBR-© ,FMTMBR- ©, DEBUG- © ,UNIV-© , 
// END 

where: 

'© is the maximum number of display stations (from the 
J -specification) 

© is the region size required to run the program (from the 

J-specification) 

© is the transaction file name (from the T-specification) 

© Is the number of records for the transaction file (from the 

T-specification) 

© is the master file name (from the M -specification) 

© is the name of the library that contains the WSU program (from 
the J-specification) [optional] 

© is the WSU program name (from the J-specification) 

O is the name of the library that contains your message member 
(from the J-specification) [optional] 

© is the name of the load member that contains your messages 
(from the J-specification) [optional] 

© is the name of the library that contains the display formats load 
member (from the J-specification) [optional] 

© is the name of the load member that contains the display formats 
(from the J-specification) 

© is the debugging option [optional] 

© is the universal work session selection authorization [optional] 
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Modifying ttie WSU-Generated Procedure 



You can modify the generated procedure using SEU. Ln response to 
the SEU procedure prompt, you must enter: 

• The name of the procedure member to be updated (the name is 
the same as that of the program). 

• The type of member it is to be: P (procedure). 

• The name of the library that contains the member (the name you 
specified on the J -specification). 

You use SEU specification display type Z (number 1 ) for procedure 
members. 

Some possible changes that you might want to make are described in 
the following paragriaphs. 

Maximum Number of Display Stations 

To change (without modifying the source program) the maximum 
number of display stations and thus the number of operators who can 
use the program at the same time, you can change the MRTMAX 
parameter value in the ATTR statement to the new number of display 
stations. 

The MRTMAX value determines the amount of main storage WSU 
allocates for the display stations. The amount of storage varies from 
application to application; however, WSU allocates from 25 bytes to 
620 bytes of storage per display station. 

Changing the MRTMAX value reduces or increases the required region 
size, which could determine whether or not a program runs in a 
region. For example, if MRTMAX is 8 but only one display station 
operates, you can save 155 to 4340 bytes of main storage by reducing 
MRTMAX to 1 . Also, the size of the WSU work file increases as 
MRTMAX increases. WSU prints, on the generation printout, the 
amount of storage required for each work session. 

// ATTR NEP-NO, MRTMAX- [ ~~~~ 
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Message Member Name and Library 



If your program issues user messages (other than those from a MSG 
or IMSG operation) but you did not specify a message member on the 
J -specification when you generated your program (or if the messages 
are now in a different message member), you can modify the 
procedure to tell WSU where to find the user messages. Before 
calling the program, you can add MSGLIBR and MSGMBR 
parameters to the WSX statement in the order shown. 



// WSX OBJLIBR- ,OBJMBR- , MSGLIBR- 
MSGMBR- 



History File Logging 



To reduce WSU startup time, you can change the generated procedure 
so that all statements are not logged to the history file. You make this 
change by giving a negative (N) response to the prompt: 

Log the procedure statements? 
on the second SEU End-of-Job display: 



END OF JOB 



Program data in include statements? ..... Y,N N 

Member name ......... ....... IMllOW 

Library name WSULIB 

Reference number . ........ 000001 

Library member subtype 40 

2 DTA 13 BAP 16 MNU 19 SRT 33 GOB 36 WSU 43 B6F 

11 ARS 14 DFU 17 MSG 31 ASM 34 FOR 40 UNS 

12 ARP 15 FMT 18 PHL 32 BAS 35 RPG 42 BGD 

Log the procedure statements?. . . . . ......... . Y,N Y 

Multiple requestor terminal procedure? .......... Y,N N 
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Never-Ending Program 



Region Size 



To make your program a never-ending program, specify NEP-YES on 
the ATTR statement. This change is best for WSU programs that are 
used most frequently, [because it keeps the program active in storage 
even when no operators are using it. To end a never-ending program, 
you must set the EJ indicator on in the program or have the system 
operator stop the program. 



// ATTR NEP- YES 



MRTMAX-N 



As the value for the REGION statement in the WSU-generated 
procedure, WSU uses the larger of: 

• The region size that you code in columns 41 and 42 of the 
J -specification, 

• The minimum region size. 

Factors that affect ideal region size include: 

• Required /accepted program performance. 

• Region size limitations (maximum and minimum). 

• Relative importance of the performance of the generated WSU 
program compared to other programs that run with the WSU 
program. 

WSU prints, on the generation printout, the minimum region size and 
maximum region size that you can code for the generated program. 
WSU also prints the amount of storage required for each work session, 
which is useful information when MRTMAX is changed. The 
generation printout is described in detail in Chapter 9, Testing and 
Debugging WSU Programs. 

You can vary the REGION SIZE parameter from one run to another to 
experiment with the effect the region size has on WSU performance. 
WSU adjusts to the region you specify, either taking advantage of 
additional space or running in less space (down to the minimum 
space specified on the output printed during generation). 

// REGION SIZE- I 
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File Disposition 



You can change any file's disposition from OLD to SHR. When a 
master file is shared and updated, however, these operations should 
not occur between the GET operation and the file update: PUTS, 
MSG, I MSG, GET, and PUT. 

Sharing the transaction file with an update program is not 
recommended because another operator may change a record before 
you are through. 



// IF DATAFl- ,DISP- 



SHR 



Debugging Option 



The DEBUG-YES parameter of the WSX statement indicates that any 
debugging operations included on the program's C-specifications are 
to be done; DEBUG-NO (or no DEBUG parameter at all) indicates 
that debugging operations are to be ignored. 



// FMTLIBR- ,FMTMBR- , DEBUG- 



YES 



,UNIV- 



Universal Work Session Selection Authorization 



If display station security is not a concern for you, and if you want 
operators to be able to access data entered from more than one 
display station, you can use the UNIV parameter of the WSX control 
statement to allow such flexibility. 

This authorization allows the operator to select a work session ID that 
is different from the symbolic ID of the display station being used. 

• UNIV-ALL: Specifies that all display stations are authorized for 
such unrestricted session selection 



• UN IV- id: Specifies the symbolic ID of the only display station 
from which unrestricted session selection can occur 



or 



Specifies a 2-character alphabetic authorization ID the operator 
can enter (on the WSU display EW line) to allow unrestricted 
session selection from the display station the operator is using. 



// FMTLIBR-, FMTMBR- , DEBUG- , UNIV- 



ALL 
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Chapter 9. Testing and Debugging WSU 
Programs 



This chapter includes some considerations and suggestions for 
debugging (finding and correcting errors in) your WSU program. 
Debugging is a straight forward process: 

1 . Is there an error? 

2. What type of error is it? 

a. Error in generating? 

b. Error in running? 

3. Correct the error. 

4. Retry. 

The types of errors that you might find in your program could be: 

• Misinterpretation of the problem statement 

• Faulty logic 

• Incomplete coding of specifications 

• Incorrect entry of specifications. 

If the errors appear when you are trying to generate the program, they 
are probably violations of syntax; that is, you probably coded the 
specifications incorrectly or typed them incorrectly when you were 
using SEU to enter them. 

If the errors appear when you are trying to run the program, the 
problem is more likely your logic or your interpretation of the problem 
statement. 

You will probably need some or all of the following aids to carry out 
your debugging successfully: 

• Diagnostic checklist 

• Supporting documentation 

• Diagnostic tools 

- Debugging template 

- Reference manual 

- Generation printout. 

• Sample test data 

- Different record types 

- Undefined records 

- Maximum values 

- Error situations. 
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Diagnostic Checklist 



Following is a possible checklist to follow when debugging your WSU 
program: 

For Errors in Generation 

Were there any terminal (T) errors when you tried to generate 

the program? 

Were the errors in text (obvious syntax errors on the 

specifications)? 

Were the errors in defining fields/indicators? 

Or something else? 

Read the error message 

Find the statement(s) in error 

Read the error message explanation (in 

Utilities Messages manual) 

Correct the coding and use SEU to change the 

source member 
Try to generate the program again. 

(You can follow the same procedure for warning (W) 

messages produced in the generation, if you want to fix them.) 

For Errors in Running tite Program 

When you attempted to run the program with test data, 

Did the first display appear? 

Did it look like it was supposed to? 

. Did it accept (or reject) test data properly? 

Did the command keys (WSU and user) work as they 

are supposed to? 

Did the next display appear when it was supposed to? 

Did it look like it was supposed to? 

Did it accept (or reject) test data properly? 

Did the command keys (WSU and user) work as they 

are supposed to? 

Did the program work properly? 



Did the program end properly? 

Did the transaction file get entered/changed correctly? 



Did the master file get changed correctly? 
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Supporting Documentation 



Supporting documentation would include your descriptions of the job 
to be done (like record format sheets, display format sheets, etc.). 

Diagnostic Tools 



Debugging Template and Reference Manual 

The WSU/$SFGR Debugging Template, GX21 -7926, includes column 
headings to match the RPG F- and I -specifications; the S- and 
□-specifications; and the WSU J-, E-, T-, M-, and C-specifications 
(as well as some other reference information). The spacing on the 
template is the same as the spacing on the generated printout, so you 
can determine what entries you have (or don't have) in the various 
columns of your file definition and source program specifications. 

The main reference manual you will need is this manual, the WSU 
Guide; it contains reference information for completing specifications 
and program examples. Descriptions of all the messages that WSU 
issues (those printed at generation as well as those displayed when 
the programs are run) can be found in the Utilities Messages manual. 
You might also need the System Messages manual if you get 
messages from the system (labeled SYS-nnnn) as well as from WSU. 
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Generation Printout 



The printout produced when the program is generated (or not 
generated!) can include heading information, source information, 
diagnostic information, and display format information. 

The actual contents of the listing depend on the values specified for 
the Source Print Option parameter, the Generation Option parameter, 
the Cross- Reference Level parameter, and the types of program 
generation errors that occur. The examples in the following 
paragraphs are marked to show which parts of the printout result from 
each of the cross-reference level options. 



e 


Release level of WSU 


o 


Date of program generation 


e 


Time of program generation 


o 


Name of the library that contains the WSU source program 


e 


WSU program name (the name of the source member that 




contains the WSU source program) 


o 


Page number of WSU printout 



Heading Information 



IBM SYSTEM/36 USU RELEASE 03 



o 



^DATE .1.2/08/85 Q 



ITIME 



10.49 




PAGE OOOl^ 
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Work Station Utility Options 



In addition to the heading information, the front page of your 
generated printout contains: 

O Options and defaults taken on the WSU procedure prompt 

Q Number, date, and time of the latest changes to the WSU source 
program 

O Number, date, and time of the latest generation of this WSU 
program 



WORK STATION UTILITY OPTIONS 

NAME OF SOURCE PROGRAM . , , IMllWB 

NAME OP LIBRARY ...... BFEBAD 

STOP OPTION ♦ , . , , HALT, NOHALT,NOSTOP. REPLACE HALT 

SOURCE PRINT OPTION ........ LIST.N0LIST,N0LISTS,N0L1STW LIST 

o 

SIZE OF WORK FILE IN BLOCKS .............. 1-9999 SO 

GENERATION OPTION PROC » NOPROC » PGM , NOPGM PROC 

CROSS-REFERENCE LE«JEL 1>2>0 2 

SAVE DISPLAY FORMAT SOURCE? N,Y N 

©SOURCE REFERENCE NUMBER 000068 
SOURCE REFERENCE DATE 12/08/85 

SOURCE REFERENCE TIME 10.47 

GENERATION REFERENCE NUMBER 000068 

©GENERATION REFERENCE DATE 12/08/851 

GENERATION REFERENCE TIME 10.49 



The above printout is from a program using the WSU prompt display. 
If you had used the WSU procedure command, any defaults that you 
used would not appear on the generated printout. 



I 
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Source Program Information 

O WSU source statements and file definition 
J -specification 
E-specifications 

T-, F-, and I -specifications for the transaction file 

M-, F-, and I -specifications for each master file 

M- and I -specifications for the local data area fields 

M- and I -specifications for session level fields 

S -specification for each display 

□-specifications for each display 

C-specifications for each display 

C-specifications for each subroutine 

0 WSU prints a 4-digit statement number in front of each source 
statement. These numbers are referenced in the diagnostic 
information that follows the source statements. Comment lines, 
continued lines, F-specifications, and unrecognized or 
out-of-sequence specifications do not have statement numbers. 

0 WSU error message numbers print beneath those source 
statements that contain errors. 
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0001 OOOl JIMllOU IMllOUD 

e 



U8ULIB 0410 



0002 0002 TINyTFtAN WSULIB INVTRAN 

0001 FINVTRAN U 91 



0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
I 0012 

'obi3 

0014 
0015 
0016 
0017 
0018 
0019 
0020 
002 



0002 IINVTRAN 

0003 I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 



02 2 CR 



0004 
00Q5 
0OO6 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
i021 



03 





100 


1 


1 RCODE 


2 


9 ITNBR 


10 


150QTY0R 


16 


23 CUSNO 


24 


31 INVNO 


32 


37 TDATE 


38 


422PRICE 


43 


472TC0ST 


46 


48 URUSE 


49 


78 ITDSC 


1 


1 RCODE 


o 


3 ITCLS 


4 


11 ITNBR 


12 


162PRICE: 


17 


200PONBR 


21 


260QTYRC 


27 


32 Tn^*-" 




FST 

70 730RRLST 
74 128 BUFFR 



0067 0005 SIMll WDl 
USU-0085 



0068 0006 D 0205 Y Y 

0007 DJUSTMENT S/I S S U E S/R E C E I P T S' 

0069 0008 n 0527 Y 

0070 0009 DRCODE 0544 YA Y Y Y Y 

0071 OOlO D 0730 



P'l N V E N T O R Y 
P» SELECT FUNCTION* 



P> ADJUSTMENTS -A» 
REISSUES 
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Diagnostic Information 



While all possible diagnostic information is described here, the actual 
information that is printed depends on the parameters specified on the 
WSU command and the types of errors that occur during program 
generation. 

• Extended diagnostics: A cross-reference list of WSU message 
numbers and the statement number at which each error occurred. 



E) 


<Ti=:Ntie:i 


MAGNOSTICS 


Nt 


)Tfi:* 


SJTMT* 


UBU 


o;?8.i. 


0082 


WS(.J 


•0281 


0090 


W8U- 


•0281 


0115 


U8(J- 


•0281 


01.AA 


UISU- 


0281 


017;? 



• Indicator name usage: An alphabetic cross-reference list of 

indicators used in the program and the statement number in which 
each indicator appears. 

- An asterisk to the /eft of a statement number means that the 
indicator has been defined in one of the following ways: 

— Is either set on or set off 

— Defines a record type in columns 1 9 and 20 of an 
I -specification 

— Defines a processing level in columns 7 and 8 of a 
C-specification. 

- An asterisk to the right of a statement number means that a 
record-identifying indicator has been referenced in one of the 
following ways: 

— Used in columns 54 and 55 for a PUT operation on a 
C-specification 

— Used in columns 48 through 53 (review mode record 
identifying indicator) or columns 54 through 59 (insert 
mode record identifying indicator) on an S -specification. 



INDICATOR 


name: usages 




Rl 


(31-IT * ^■ 


RECORB 


TYPE REFERENCE 


NAME 


STMT* 






LEFT * = 


DEFINITION 




E'::U 


*0077 


»0113 


»0144 


»0171 










KG 


0077 


0078 


0113 


0114 


0144 


0145 


0171 


0172 


KH 


Oils 


014A 


0173 












01 


»0024 


»0033 


»0053 


KO083 


0084 


0089 


0090 


0123» 0123 


02 


»0003 


»008S 


0086 


0089 


0090 


0152*! 


0152 




03 


*001A 


»0087 


0088 


0089 


0090 


0178» 


0178 




72 


♦(•0119 


0120 


0121 












89 


»0032 


W0052 


»0079 


»0080 


0081 


0082 
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• Indicator lists provide a record of those indicators that are: 

- Used: Defined and referenced 

- Unreferenced: Defined but not referenced 

- Undefined: Referenced but not defined 



INDICATORS USEli 

EU KG KM 01 02 03 72 89 



• User message member MICs used: A list of the MICs that are 
used in the program. 

• Field name and label usages: An alphabetic cross-reference list of 
field names and labels that are used in the program and the 
statement number at which each name or label appears 

- An asterisk to the /eft of a statement number means that the 
field or label is defined at that statement 

- An asterisk to the right of a statement number indicates a 
possible update to a field, and means that the field is one of 
the following: 

— A result field on a C-specification 

— An input field on a D-speciflcation 

— On a ifield-type I -specification for the transaction file 

— On a field-type t -specification for a master file that allows 
record additions. 



fie;;ij;i name and label usages right * =» update reference 

name stmt* left » = definition 

*ERR0R 

»RLNO 

»RLRN 

*RLRU 
»SLNO 
*US.tD 



ACODE »0027» 0101» 0119 

ARCOD *0034 *0054 

AVAIL »0039 

BUFFR »0051 »006A 

CUSNO *0007» 0138» 

END 0078 »0091 

ENDl 0114 *0124 

END2 01.45 *0153 

1"::NI:i3 0172 »0179 

INVNO »000Q» 0136» 

ITCLS; »0016» *0058 

ITDSC *0013» *0023» »0031»* »0056 0097 0130 0159 

ITNBR »*0005* »0O17* »0026» 0032 *0035 0052 w005£5 0075* 0095 0128 0157 

I TYPE *0057 

MDATE »0048 »OOA3 

ONORD »O038 
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• Data field names used consist of alphabetic lists of all the 
mode-level, session-level, and Job- level data fields used in the 
program. For each field, WSU lists the following information: 

Column 

Heading Field Information 
NAME Field name. 

DIM The number of elements in the array(s) in the program 

(blank in this example). 

STMT# The statement number in which the field is first 

defined, or RSVD if the field is a WSU reserved field. 

LNG The decimal length of the field. An asterisk to the right 

of the length indicates that WSU assumed an 
unpacked length for a packed field. 

DEC If the field is numeric, the number of decimal 

positions; if the field is alphameric, the letter A. 

DISP The hexadecimal displacement of the field into the 

data area. 

LCL The character U if the field is a local data area field. 

F/ICNT The number of times the field is referenced on all 

I -specifications (except session-level and 
local-data-area I -specifications). 

SCR The character D indicates an input or output field on a 

□-specification. 



CHN 



The character M indicates a GET field. 



MODE LEVEL DATA FIELD 


NAMES 


USED 








NAME 


DIM STMT* 


LNG 


DEC 


DISP 


LCL F/ICNT 


SCR CHN 


RCODE 


0004 


OOl 


A 


0000 


000 


D 


ITNBR 


0005 


008 


A 


0001 


000 


DM 


QTYOR 


0006 


006 


0 


0009 


000 




CUSNO 


0007 


008 


A 


OOOF 


000 


D 


INVNO 


0008 


008 


A 


0017 


000 


D 


TDATE 


0009 


006 


A 


00 IF- 


000 




PRICE 


0010 


009 


2 


0025 


000 


D 


TCOST 


OOli 


009 


2 


002E 


000 




URHSE 


0012 


001 


A 


0037 


000 


D 


ITDSC 


0013 


030 


A 


0036 


000 




ITCLS 


0016 


002 


A 


0056 


000 




PONBR 


0019 


007 


O 


0058 


ooo 


D 


QTYRC 


0020 


006 


0 


005F 


000 


D 


ACODE 


0027 


001 


A 


0065 


000 


D 


QTYIS 


0028 


006 


0 


0066 


000 


I) . 


UCOST 


0061 


009 


2 


006C 


000 


D 
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• For each program label name used, WSU lists: 



- The statement number where the label is initially defined 

- The operation (TAG, BEGSR, or ENDSR) that is used to 
define the label 



PROGRAM 


labc;;l name<3 


USED 


NAME 


STMT* 


TYPE 


END 


0091 


TAG 


ENDl 


0124 


TA(3 


END2 


0153 


TAG 


END3 


0179 


TAG 



• Field names that are: 

- Unreferenced: Defined (on I- or C-specifications) but not 
used (on M-, D-, or C-specifications) 

- Defined more than once: Defined differently (on multiple I- or 
C-specifications) 

- Undefined: Referenced (on M-, D-, or C-specifications) but 
not defined I- or C-specifications) 



WSU~0325 UNREFERENCEti FIELD NAMES 


NAME 


STMT* 


ARCOEi 


0034 


STOCK 


0037 


ONORD 


0038 


AyA.tl. 


0039 


REORD 


0040 


RENUM 


0041 


QUSMO 


0042 



• A cross-reference list of displayed text for programmed halts and 
the statement number of the location each IMSG, MSG, or 
DEBUG literal appears 



SOURCE/OBJFCT CI 


<OSS REFERENCI? 


S 


STMT* 


CSB 


lAR BBS 


Kw»x»» DISPI. AYEIi lEXr FOR PROGRAMMED HALTS < I MSG/MSG/DEBUG) 


0081 


0000 


002S 0009 


ENTER MALID ITEM NUMBER 


0089 


OOOO 


0063 0009 


INiviALID FUNCTION 


0120 


0007 


003B OOOA 


INVALID CODE 
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• Storage requirements: 

- Main storage: For running the WSU program 



MAIN STORAGE REQUIREMENrS FOR WSU PROGRAM EXEaJTION 


MINIMUM 


MAXIMUM 


BYTK S REOUIRED PER WORK S I AT [ON 


28 


284 


TIMES MAXIMUM NUMBER 01- WORK STATIONS 


A 


4 


Pl,.US AiaUTIONAI.. STORAGE RE.CiU I REIJ 


9824 


47368 


YIELDS STORAGE REQUIRED FOR EXECUTION 


9936 


48504 


REGION REOUIREIi FOR EXEOUI ION 


lOK 


48K 



- Disk storage: For the program work file 



tilSK STORAGE REOUIREMENTS f"OR WSU EXECUTION PROGRAM WORKFILE 




SECTORS REQUIRED PER WORK STATION 


12 


TIMES MAXIMUM NUMDER OF WORK '-rrATIONS 


4 


Pl.US ADDITTONAI... DISK SECTORS REOUIRt- J.i 




YIELDS MINIMUM DISK SECTORS REOUIRED 


S3 


EXECUTION WORKFILE SIZE IN BLOCKS 


6 



- The procedure generated for calling the execution program 



I Ml tow PROCEDURE ORE 


s>TED FOR EXECUTION 


// ATTR NEP NO,MRTMAX 


-4 


// REGION s;i; />:;■- .1.0 




.// LOAD *WSXI1 




/./ FILE NAME-INVrRAN, 




// IF DATAFl- IN^TRAN 


DISP-OLD 


// ELSE niSP -NEW.RECO 


•*»s~ioo 


// FILE NAME-ITEMBALN 


, DISP-OLD 


// FILE NAME-ITEMMSTR 


, DISP-OLD 


// RUN 




// WSX OBJLIBR-WSULIB 


, OB JMBR -IMll OW , FMTL I BR-WSUL I B , FMTMBR-- IM 1 1 OWD 


// END 





- Diagnostic text: The message number, severity, and text for 
each program generation message 



DIAGNOSTIC TEXT 
NOTE* SEV MESSAGE TEXT 

WSU-0325 U LISTED FIELD NAME DEFINED BUT NOT REFERENCED. 



- A message that indicates whether or not program generation 
was successful 



GENERATION SUCCESSFUL — WARNING ERRORS LISTED ABOVE, 
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Display Format information 



Q Name of the source member that contains the S- and 
D-specifications 

O S- and D-specifications generated for display format input 

O Execution time output buffer for the WSU program 

O Execution time input buffer for the WSU program 

O Input library name 

O Output library name 

O Format load member name 

O Amount of main storage required for each display screen format 



SOURCE INF'UT SCREEN FORMAT SOURCE SP'ECIFICATIONS 
IMllOWD - SOURCE MEMBER NAME 
SIM110WD2 01 YNY Y 

riS000000800400221Y Y Y 

ru U S T M E N T S 
DS0000009001 1040&Y 
niTNBR 00O80419Y 
DSOOOOOiOOOl 10434Y 
DITDSC 003OO447Y 
DSQfiQfi^l0017O6O6Y 
5070624 



DATE 08/30/85 TIME 13.00 

000068 REFERENCE NUMBER 



CI N^ENI ORY ADX 
CITEM NUMBER 
CDESCRIPTION 
CaUANTlTY RETURNIj 




5000001 
DS0O0O020OO2 
B i T)ue 

nS000002 100302206Y 
Dses« i o n 

n80O00022O042230<6Y 
Drn previous menu 



EXECUTION TIME OUTPUT BUFFER DESCRIPTION 



CF-'vess En lev key to con-tX 
CPre«!5 Cmd key 7 +o end X 
CPressv Cmd key 8 +o retuX 



FIELD 
NAME 

ITNBR 
ITD8C 
WRHSE 



LENGTH 

8 
30 
1 



INPUT BUFFER DESCRIPTION 



FIELD 
NAME 



QTYRC 
ACODE 



O UlSULIB 

O USULIB 

O XMllOUD 

o 



LENGTH 



INPUT LIBRARY NAME 
OUTPUT LIBRARY NAME 
FORMAT LOAD MEMBER NAME 



START 
POSITION 

1 
9 
39 



START 
POSITION 



END 

POSITION 

8 
38 
39 



END 

POSITION 



000068- REFERENCE NUMBER 



FORMAT 1 M 1 1 OUD 1 F<EQU I RES 
FORMAT •J:M110UD2 REQUIRES 
FORMAT IM110WD3 REQUIRES 
FORMAT IM110WD4 REQUIRES 



•512. BYTES OF STORAGE AND HAG A DATA aTRn"AM LENGTH OF 

■768 BYTir;S OF STORAGE ANIii HAS A DATA <5T|:^EAM LK.NGTH OF 

512 BYTES OF STORAGE AND HAG A DATA STREAM LENGTH OF 

E512 BYTES OF STORAGE AND HAS A DATA STREAM LENGTH OF 



223 BYTES 
443 BYTES 
7.61 BYTES 
338 BYTES 
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Testing 



Program testing, the process of running a program with the intent of 
finding errors in it, is an important factor in the development of your 
application program. By testing your program, you can verify if your 
program: 

• Is correctly accepting input data. 

• Is correctly processing the input data. 

• Is producing output correctly, whether the output is a file or a 
display format. 

• Can handle unexpected and incorrect data. 

You should be aware of the following considerations when you begin 
to test your programs. 

Adequate Time for Testing: Allow plenty of time for testing your 
programs. If you have a complex program, you may need more time 
to test than you did to write the program. 

Test Schedule and Testing Logbool^: Documenting the testing 
process is important. You should have a written record of the level of 
testing that you did on your program. When you document your 
testing, be sure you have, for ail cases, a description of: 

• The test data used as input to the program 

• The correct output you expected for the test data. 

You should also assign some unique identification to each task in the 
testing process to aid you in the logging of the testing process. 

l\/lanageable Tasks: Divide the testing process into manageable tasks 
that proceed from the simple to the complex in terms of the functions 
performed in the program. Each task should build upon the functions 
of the preceding task. For example, if your program has to read or 
write three different record types, you should test to see if the program 
can handle one, two, and then all three record types. Generally, the 
first task you should do is to review your program code for errors in 
logic or syntax. 

Appropriate Test Data 

Test your programs with data that checks whether the program is 
correctly performing its intended functions. In most cases, your 
program cannot be tested in a single test because certain functions 
must be tested individually. You must also check the way these 
functions interconnect in your program. Label your test data for each 
test, and keep this data for future use in the event that you have to 
modify your program due to errors found in it during testing. Your test 
data should cover: 

• Normal and expected data 

• Error data and unexpected conditions. 
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Normal and Expected Data 

When you test normal and expected conditions, use data that is 
representative of the real data that you will be using in the program. 
For example, in testing an order entry application, data could be used 
to test the following conditions: 

• Opening a new account 

• Updating an existing account 

• Closing an existing account 

• Updating multiple existing accounts. 

Error Data and Unexpected Conditions 

Use data in testing for errors and unexpected conditions that is not 
representative of the data that you would use in running your 
program. Data on error conditions is important because you may 
discover that your program is generating errors when used in a new or 
unexpected way. By using data that is erroneous or unexpected, you 
will have a way of seeing whether your program performs predictably. 

Some examples of error condition testing are: 

• Attempting transactions against nonexistent account numbers 

• Updating closed accounts 

• Using input data with invalid dates, incorrect totals, or invalid 
ranges of values in key fields 

• Using combinations of data that have multiple errors or data that 
has a combination of valid and invalid values. 

Some examples of unexpected condition testing are: 

• Using no data as input to a program 

• Running 2 days' worth of data as one day's data 

• Running a program with the wrong input. 

It is important when you are testing error conditions to ensure that 
your program is issuing error messages that describe the errors 
encountered in testing. 
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Other Testing Conditions 



Check the following when yoii are testing a program: 

• Have you successfully tested the restart or recovery procedures? 

• Are the people who have to use the program familiar with the 
procedures needed to use or run the program? 

• Does the program pass the right data to other programs that have 
to use the program's output? 

• Are the system operators familiar with the requirements for the 
program? 

• Has the program been tested for ail phases of processing? For 
example, if the program has to generate weekly and monthly 
reports, have you merely tested for weekly report generation? 

Program coding and testing should continue until all program 
functions are coded and tested. Using the DEBUG operation in 
complicated programs can shorten testing. If DEBUG is used, 
condition each DEBUG operation with an external indicator (for 
example, U8). Thus, the program can be tested with or without 
debugging without regenerating it. Another, perhaps easier, way to 
shorten your testing is to use DEBUG-NO. When using DEBUG-NO, 
you do not have to condition the external indicators. 

As each program is being developed, changes may have to be made to 
the original specifications. For example, it may be easier to keep a 
field of information on the display rather than in the control record. 
This would mean changing the display and the logic of the program. 
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Chapter 10. ATTENTION: OPERATORS (Running 
a WSU Program) 



The purpose of this chapter is to provide information about running 
WSU programs; therefore, it is intended primarily for operators (or 
programmers who are running their own WSU programs). 

There are a few things about WSU that may be useful to know when 
you are running a WSU program, such as: 

• Jobs 

• Work sessions 

• Operating modes 

• Command/function keys 

• WSU display and WSU aid display. 

Those topics are discussed in the beginning of this chapter. Then, 
following those discussions, are descriptions of the tasks you might 
need to do while running a WSU application program: 

• Starting a work session 

• Entering data 

• Reviewing records 

• Inserting records 

• Deleting records 

• Ending a work session 

• Restarting a work session. 
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JOBS 



A WSU job is the entire time during which a WSU application 
program is run, from the time the first operator signis on to that 
program until the time the last operator signs off. Usually, more than 
one operator can use a WSU program at the same time. 

Two or more different WSU Jobs (for example, an order entry program 
and an inventory transactions program) can run at the same time. 

WORK SESSIONS 

A work session, to WSU, is the period from the first time an operator 
at a display station signs on to a job until an operator at that display 
station signs off the job. 

Several display stations can be using the same job at the same time, 
so there can be as many work sessions as there are authorized display 
stations. If, for example, the maximum of four operators are 
authorized to use a program at one time, and you try to sign on when 
four operators are already using that program, you will not be able to 
sign on. You won't get a message saying that you can't sign on (or 
why), but you will have to either wait until one of the operators signs 
off or cancel your request, using the Inquiry display. 

Any records entered from a particular display station are part of the 
corresponding chain of records for that work session in the transaction 
file. And, unless the programmer specifies otherwise, you can only 
review/insert/delete records in the chain of the work session (display 
station) you are using. So, for example, if you used a WSU program 
to enter records from display station XI , you wouldn't normally be 
able to review/update those records if you signed on to display station 
X2. 

Operating Modes 

You will see the word mode used quite a bit throughout this section. 
The modes we talk about (enter, review, insert, delete) are Just the 
different kinds of work that a WSU program can be written to do. 
Because the program can't do everything at once, we say you are in 
enter mode when you are entering data, but in review mode when you 
ask the program to show you a previous record. 

Some things to remember about modes: 

• All programs are in enter mode when you start. 

• You have to signal the program, using a command key, when you 
want to change from one mode to another. 

• You can only change to review, insert, or delete mode if the 
program you are using was specifically written to allow you to 
review, insert, or delete records. 
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COMMAND KEYS AND FUNCTION KEYS 



Figure 10-1 is an illustration of a display station keyboard. It shows 
the command keys (on the top row of the keyboard), the template that 
identifies them, and the function keys. The lowercase command keys 
are called Cmd 1 through Cmd 12; the uppercase keys are called Cmd 
1 3 through Cmd 24. 




Figure 10-1. WSU Command/Function Keys and Template 
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WSU Command Keys 



Name 
Cmd 1 



Key 

D 



The Cmd 1 through 6 keys and Cmd 1 3 through 1 5 keys have special 
uses, and therefore special function names, when you are using WSU 
programs: 

Function Name What It Does 

WSU Display Shows the WSU display. 



Cmd 2 



Cmd 3 



Cmd 4 



Cmd 5 



Cmd 6 



Cmd 13 



□ 
□ 



□ 



Bypass Display 



Resume Enter 
Mode 



Insert Mode 



Page Backward 
Group 



Page Forward 
Group 



Accept Sequence 
Error 



Cmd 14 



Delete Mode 



Shows the next appropriate 
display. You can use this 
command key to advance from a 
repeated display. 

In review, delete, or insert mode, 
changes the operating mode back 
to enter and shows again the entry 
display from which you selected 
another mode. 

In review mode, changes the 
operating mode to insert and 
shows a display for you to insert a 
record. 

Changes the operating mode to 
review and shows the previous 
header record in the transaction 
file. 

Changes the operating mode to 
review and shows the next header 
record in the transaction file. 

In enter mode (if the program is so 
written), allows you to bypass a 
required display. 

In review, delete, or insert mode, 
shows the WSU Aid display. 

Changes the operating mode to 
delete. 



Cmd 15 



Resume Review 
Mode 



Changes the operating mode back 
to review. 
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User Command Keys 



The Cmd 7 through 1 2 keys and Cmd 1 6 through 24 keys are called 
user command keys because the programmer can assign a use for 
them in the WSU program (they can also be disabled in the WSU 
program). 

Pressing one of these keys: 

• Enters the display. Enters the display refers to the operator 
pressing the Enter key, pressing a user-enabled command key, or 
leaving a field for which auto-record-advance has been specified.) 

• Does whatever action the program has assigned to that key by 
setting on the associated indicator (KG, KH, . . .). 



Two of the uppercase function keys have a special use with WSU 
programs: 



Function Keys 



Key 



Function Name 



What It Does 




Page Backward 
Record 



Changes the operating mode to 
review (if it isn't already) and 
shows the previous record in the 
transaction file. 




Page Forward 
Record 



Changes the operating mode to 
review (if it isn't already) and 
shows the next record in the 
transaction file. 



The rest of the function keys are used in their normal way. 
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The WSU Display 

The WSU display appears when you press the WSU Display command 
key (Cmd 1 ). You can select this display anytime a display is waiting 
for input from you. 

The first line of the display shows the display station identifier, the 
next record number, and the title of the menu. Figure 10-2 shows the 
WSU display, and the paragraphs following the illustration describe 
the information on the display. 



WS WORK STATION UTILITY DISPLAY 

Enter display selection identifier 

Enter EW to end work session .... 

Enter session selection identifier for restart . . . 

Enter review record number 

02 W5 000020 — 

eoe o o 




V , ^ J 

Figure 10-2. The WSU Display 

O Enter display selection identifier 

You can select a display by entering its 2-character ID on 
this line (but you can't select the ID of the display you just 
left). 

O Enter EW to end work session 

You can end your work session by entering EW on this line. 

If the program allows, you can select a work session ID that 
differs from the ID shown in the top left corner of the WSU 
display by entering the session selection authorization ID on 
this line. 

O Enter session selection identifier for restart 

You can restart your work session or start a different work 
session by entering the appropriate work session ID on this 
line. 

O Enter review record number 

You can review a specific record in the transaction file by 
entering the record's relative record number on this line. 
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1^ Format/level ID field 

The format ID of the current display (blank in the example) 

The WSU processing level (IJ, IW, EW, or EJ) 

** If there is no current processing 

If current processing has been stopped by the operator 
before it is finished. 

O Session ID field 

The session ID of the active session (W1 in the example). 

0 Mode/processing level field (blank in the example) 

A code identifying the current WSU mode or processing 
level: 



The current record number for add or update operations (9 in 
the example) 

* If there is no current review record during review 

mode 

000000 If there is no transaction file. 

^ Chain-end indicator field 

-- If review mode is not supported in the program (as in the 
example) 

Blank if review mode is supported but not active or if you are 
not at the end of the chain 

** If you are at the end of the chain. If you press one of the 
Page Forward keys at end-of-chain, you will get the first 
record in the chain; if you press a Page Backward key, you 
will get the last record in the chain. 



RV 

IN 

DL 

IJ 

IW 

ES 

EW 

EJ 



Blank 



Normal enter mode (as in the example) 

Review mode 

Insert mode 

Delete mode 

Initiate job 

Initiate work session 

End sequence set 

End work session 

End job 



^ Add/update relative record number field 
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Returning from the WSU Display 



If you displayed the WSU display while you were in enter mode or 
reviewing, deleting, or inserting a record, you can return to the display 
from which you requested the WSU display by pressing the: 

• WSU Display command key (Cmd 1), in which case the entries on 
the display are ignored 

• Enter key, in which case the entries on the display must all be 
blanks or zeros. 



WSU Aid Display 



When you are In review, insert, or delete mode, WSU provides a 
display that can help you request some functions: 



********* WORK STATION UTILITY AID DISPLAY ********* 

Display WSU Menu Cmdl 

Select program display 
End or restart session 
Select record to review 

Resume enter mode processing Cffld3 

Review transaction file record 

Previous/next data record Roll Down/Roll Up 

Previous/next header record . Cmd5/Cffld6 

Delete most recent review record or group of records . . . Cmdl4 

Review most recent review record CmdlB 

Redisplay most recent status-altering message Cmdl3 



You can get this display by pressing the: 

• Accept-Sequence- Error command key (Cmd 13) from a WSU or 
program -defined display. 

• Enter key or a program-defined key when there is no current 
processing. 



WSU Display command key (Cmd 1 ) from the WSU display when 
there is no current processing. 
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Starting a WSU Program 



To use a WSU program you can: 

• Enter its name in response to the 

Ready for option number or command 

prompt (in this example, the program name is IM110W): 



MAIN 

Main System/36 help menu 
Select one of the following: 

1. Display a user menu 

2. Perform general system activities 

3. Use and control printers, diskettes, or tape 

4. Work with files, libraries, or folders 

5. Use programming languages and utilities 

6. Communicate with another system or user 

7. Define the system and its users 

8. Use problem determination and service 

9. Use office products 
10. Sign off the system 



Cmd3-Previous menu Cmd7-End Cmdl2-How to use help 

Ready for option number or command 
IMllOW 



Wl 



Home-Sign on menu 
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Select the appropriate number from a menu that the programmer 
has provided (in this example, the program is option 1 ): 



COMMAND 



MENU: AROIOM 
Accounts Receivable: Transactions Menu 



W5 



Select one of the following: 

1. Enter receipts and adjustments 

2. Enter invoices and credit memos 

3. Process unposted transactions 

4. Enter invoices from diskette (print errors only) 

5. Enter invoices from diskette (print all transactions) 



CmdS-Return to Accounts Receivable menu 



t 



Ready for option number 
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Entering Data on a Display 



When a display appears, the program places the cursor at the first 
input field, as shown on the following display: 



INVENTORY ADJUSTMENT S/ISSUES/RECEIP T S 



SELECT FUNCTION ^ 

ADJUSTMENTS -A 
ISSUES -I 
RECEIPTS -R 

ITEM NUMBER 



Press Cmd key 7 to end session 



As you type data in a field, the cursor moves from left to right across 
the field. 

For some fields that you fill, the cursor automatically jumps to the next 
input area when you have typed the last character in the field. 

For fields that you do not fill, or for fields that the cursor does not 
automatically exit, you will have to press one of the field exit keys 
(Field Exit, Field+, or Field-) to leave the field. Numeric fields are 
right-adjusted when the field is entered; alphameric fields are 
left-adjusted (unless the program specifies otherwise). 

On the display below, the numeric fields are right-adjusted and filled 
with zeros when the Field Exit key is pressed. 



INVENTORY ISSUES 
ITEM NUMBER 10012000 DESCRIPTION Swivel chair with arms 
SELLING PRICE 000029500 ISSUING WAREHOUSE 1 

INVOICE NUMBER CUSTOMER NUMBER 

QUANTITY ISSUED 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to previous menu 



To enter a negative value in a field, enter the value and then press the 
Field- key. The field will be right-adjusted and the minus sign will 
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follow the last digit. For example, if you enter 50 and press the Field- 
key, 50- is displayed. 



As you enter fields, the cursor advances from left to right across a line 
as shown below. When the rightmost input field has been entered, 
the cursor advances to the leftmost input field on the next tower line. 



INVENTORY ISSUES 
ITEM NUMBER 10012000 DESCRIPTION Swivel chair with arms 
SELLING PRICE 000029500 ISSUING WAREHOUSE 1 

INVOICE NUMBER CUSTOMER NUMBER 

QUANTITY ISSUED 




Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to previous menu 



You can use any field exit key to skip over a field, if a value in that 
field is not required by the program. 



When you complete a display, you usually enter it by pressing the 
Enter key or a command key that the programmer has specified in the 
program. Some programs, however, enter a display automatically as 
soon as you type the last character in the last input field. 
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Reviewing Records 

if the program you are working with allows you to review records in 
the transaction file, you can select review mode by pressing one of the 
following: 

• Page Backward Record key (Roll I ) 

• Page Forward Record key (Roll t ) 

• Page Backward Group command key (Cmd 5) 

• Page Forward Group command key (Cmd 6) 

• WSU Display command key (Cmd 1 ) and specifying a review 
record number on the WSU display. 

You can review records by pressing one of the following: 

• Page Backward Group command key (Cmd 5) 

• Page Forward Group command key (Cmd 6) 

• Page Backward Record function key (Roll >!- ) 

• Page Forward Record function key (Roll t ). 

You can select alternative displays (if there are any) by pressing one 
of the following: 

• Bypass Display command key (Cmd 2) 

• WSU Display command key (Cmd 1) and entering a 2-character 
ID on the WSU display. 

You can return to enter mode (at the point entry was Interrupted) by 
pressing the: 

• Resume Entry command key (Cmd 3). 
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Inserting Records 

If the program you are working with allows you to insert records into 
the transaction file, you must first: 

• Be in review mode (see description of Reviewing Records) 

• Display the record that is to come before the inserted record. 
You can then insert a record by pressing the: 

• Insert Mode command key (Cmd 4) to get a display that you can 
use to insert a record. 

You can select alternative displays (if there are any) by pressing one 
of the following: 

• Bypass Display command key (Cmd 2) 

• WSU Display command key (Cmd 1) and entering a 2-character 
ID on the WSU display. 

You can return to review mode to select another place to insert a 
record by pressing the: 

• Resume Review command key (Cmd 15). 

You can return to enter mode (at the point entry was interrupted) by 
pressing the: 

• Resume Entry command key (Cmd 3). 
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Deleting Records 

if the program you are working with allows you to delete records from 
the transaction file, you must first: 

• Be in review mode (see description of Reviewing Records) 

• Display the record that is to be deleted. 
You can then delete the record by pressing the: 

• Delete command key (Cmd 14), and then 

• The Enter key. 

You can return to review mode to select another record to be deleted 
by pressing the: 

• Resume Review command key (Cmd 15). 

You can return to enter mode (at the point entry was interrupted) by 
pressing the: 

• Resume Entry command key (Cmd 3). 
Ending a Work Session 

You can end a work session by pressing one of the following: 

• WSU Display command key (Cmd 1 ) and entering EW on line 2 of 

the display 

• A specific user command key (if the program instructs you to do 
so). 

You can, in an emergency, use the Attention key and the Inquiry 
display to end a work session; however, you may well lose some of 
the data you entered if you use this method! 
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Chapter 11. WSU Example Programs 



EXAMPLE PROGRAM 1: INVENTORY 
ADJUSTMENTS/ISSUES/RECEIPTS 

This program, named IMI 10W, allows a maximum of four operators to 
concurrently enter receipts, issues, and adjustments to two master files 
(ITEMMSTR and ITEMBALN). Input from operators consists of 
selecting a function, entering an item number, and responding to 
requests from the display. 

Output consists of a transaction file that contains all operator entered 
receipts, issues, and adjustments (INVTRAN). 

Running IM110W 

To initiate WSU program IM110W, the operator enters the procedure 
name, IM110W. 



MAIN Wl 
Main System/35 help menu 
Select one of the following: 

1 . Di spl ay a user menu 

2. Perform general system activities 

3. Use and control printers, diskettes, or tape 

4. Work with files, libraries, or folders 

5. Use programming languages and utilities 

6. Communicate with another system or user 

7. Define the system and its users 

8. Use problem determination and service 

9. Use office products 
10. Sign off the system 



Cmd3-Previous menu Cmd7-End Cmdl2-How to use help Home-Sign on menu 

Ready for option number or command 
IMllOW 
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This display occurs when an operator initiates the WSU program 
IM110W. 

The operator enters the item number and selects one of three 
functions (A, I, or R). Into the selected display, the operator enters 
the required information, and the information is put into the 
transaction file INVTRAN. 


INVENTORY ADJUSTMENTS/ISSUES/RECEIPTS 



SELECT FUNCTION . . 

ADJUSTMENTS -A 
ISSUES -I 
RECEIPTS -R 

ITEM NUMBER 



Press Cmd key 7 to end session 



V J 

If the operator selected function A (adjustments) on the previous 
display, the title of the next display is Inventory Adjustments. 



This display has two input fields: quantity returned and adjustment 
code. The operator enters the required data into these fields and 
presses the Enter key to cause processing for this display to begin. 
Command key 7 will end the session; command key 8 causes the 
previous display to be shown. 
, 



INVENTORY ADJUSTMENTS 
ITEM NUMBER 10012000 DESCRIPTION Swivel chair with arms 

QUANTITY RETURNED ADJUSTMENT CODE 

RECEIVING WAREHOUSE 1 SELECT ADJUSTMENT CODE 

1- Damaged In shipping 

2- Incorrect Size 

3- Incorrect Color 

4- Incorrect Item 

5- Other 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to previous menu 

V . ) 



If the operator selected function I (Issues) on the previous display, the 
title of the next display is Inventory Issues. 

This display has three input fields: invoice number, customer number, 
and quantity issued. The operator enters the required data into these 
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fields and presses the Enter key to cause processing for this display to 
begin. Command key 7 will end the session; command key 8 causes 
the previous display to be shown without any processing. 



INVENTORY ISSUES 
ITEM NUMBER 10012000 DESCRIPTION Swivel chair with amis 
SELLING PRICE 000029500 ISSUING WAREHOUSE 1 

INVOICE NUMBER CUSTOMER NUMBER 

QUANTITY ISSUED 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to previous menu 



If the operator selected function R (receipts) on the previous display, 
the title of this display is Inventory Receipts. 

This display has two input fields: order number and quantity received. 
The operator enters the required data into these fields and presses the 
Enter key to cause processing for this display to begin. Command key 
7 will end the session; command key 8 causes the previous display to 
be shown. 



INVENTORY RECEIPTS 
ITEM NUMBER 10012000 DESCRIPTION Swivel chair with arms 

ORDER NUMBER QUANTITY RECEIVED 

ITEM COST 000020000 RECEIVING WAREHOUSE 1 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to previous menu 
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Coding Forms 

In this example, the file definition is in three source members: 

• INVTRAN contains F- and I -specifications for the transaction file, 
INVTRAN. 

• FILES RC contains F- and I -specifications for the item master file, 
ITEMMSTR. 

• FILES RC contains F- and I -specifications for the item balance 
master file, ITEM BALN. 

Figure 11-1 shows the file definition for example program 1 . 
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File Description Specifications 

For the valid entries for a system, refer to the RPG reference manual for that system. 
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The source program is in a source member named IM110W in 
WSULIB. Figure 1 1 -2 shows the WSU specifications for IMI 10W. 



S/36 WSU Job, Array, and File Specifications 
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Transaction/Master File Specifications 
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The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 
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Use this coding sheet only to define display formats for WSU and 
$SFGR. This coding sheet could contain typographical errors. 



Display Control Specification 



Display 
Format 
Name 



7 8 9 10 11 12 13 14i 



36 36|37 38 



Enter 
Mode 
Sequence 



Review 

Mode 

Record 

Identifying 

Indicators 



Insert 

Mode 

Record 

Identifying 

Indicators 



64 65 66 67 68 6970 71 72 73 74 75 76 77 78 79 8 



The H specifications are optional. If you choose to use the H specifications, tliey must be placed between the S specification 
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S/36 WSU Processing Specifications 



3 

Sequence 
Number 

12 3 4 5 


i o> Specification Type | 


1^ Processing Function | 


Conditioning 
Indicators 




Factor 1 


Operation 
28 29 30 31 32 


Table or Message Text 


1 Continuation! 


Resulting 
Indicators 


Comments 

SO 61 62 63 64 66 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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d A 


id 




Factor 2 
33 34 35 36 37 38 3940 41 42 


Literal 


CO 




Result Field 


Arithmetic 






Name 
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Length 
4950 51 


IS Decimal Pos | 


IS Half Adjust (H)J 


Plus|Minus|Zero 


■o Not 


10 


11 
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z 

12 


13 
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15 


16 1 




Compare 
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S4 55 
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1<2 
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System/36 Display Format Specifications 

Display Control Specification 



Use this coding sheet only to define display formats tor WSU and 
$SFGR. This coding sheet could contain typographical errors. 



Sequence 
Number 



Display 
Format 
Name 



7 3 9 1011121314 



lMIMB3f 



35 36 37 38 39 40 41 



Enter 
Mode 
Sequence 



Rewiew 

Mode 

Record 

Identifying 

Indicators 



Insert 

Mode 

Record 

Identifying 

Indicators 



; 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 fi 



The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 



Sequence 
Number 

1 2 3 4 5 


o> Specification Type 1 


WSU 

Field Name 


WSU Arrays 


Elements per 

Row or Column j 


jFill Direction 


Line Skip Factor 


Horizontal Positions 
Space Factor | 


Field Name 
7 8 9 10 11 12 13 14 


Field 
Length 
15 16 17 18 
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r 5x 



ITEM 



'DE5CRIPTICN 



SELLING 



PRICE' 



1ISSLI^G 



WAREHCUSE' 



IP4\iCICE_ 
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NUMEER' 



IGUANTITY 
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S/36 WSU Processing Specifications 



Sequence 
Number 



t 2 3 4 S 



Conditioning 
Indicators 



KG 



KG 



Operation 



18 19 20 31 32 23 34 3S 36 27 28 29 30 31 32 



33 34 35 36 37 38 3940 41 42 •S 44 45 46 4 7 48 



GCTO 



Table or Message Text 



lis 

rwiii 



Length 



Resulting 
Indicators 



Minuijz 



Plus MinuslZero 



Low Equa 



56 57 S8 59 BO 61 62 63 64 65 66 67 68 69 70 71 73 7 3 74 76 76 77 78 79 8C 



KH 



FUT5 



GET 
GET 



STYI5 



PUTS 

tJUT 



1 1^1 



ENDS 



mil 



FI 



FI 



TEIV ) 



iPRICE 



TCC 



UDATE 



BALANCE 



rC TRANS 



FI 



INVTRAN 
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System/36 Display Format Specifications 

Display Control Specification 



Sequence 
Number 



11 



Display 
Format 
Name 



8 9 10 11 1? U 1 



mmm 



35 3613; 



Enter 
Mode 
Sequence 



Review 

Mode 

Record 

Identifying 

Indicators 



47 4B 49 bOb\ 



bH b9 bO til ti2 63 S4 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



TTTTTTITT 



The H specifications are optional. l< you choose to use the H specifications, they must be placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 



ET 



Sequence 
Number 



1 2 3 4 6 



WSU 

Field Name 



Field Name 

7 8 9 10 11 12 1 



Field 
Length 

15 16 17 18 



1 2 3 4 b 6 7 8 910111213141516171819 20 21 22 23 



67 58 59 60 61 62 63 64 66 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



N 



EX 



ITEM 



NUMBER 



irNBR 



DESCRIPTION 



ITD5C 



M7i 



ORDER 



Y 



2634 



GUAINTITY 



RECEIVED' 



STYRC 



UCOST 



281 



6Y 



ITEW 



CCST 



RECEIVING 



WAREHOUSE' 



WRH5E 



2856Y 



tSi06 
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S/36 WSU Processing Specifications 
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Sequence 
Number 

1 2 3 4 5 


1 o> Specification Type | 


^ Processing Function | 


Conditioning 
Indicators 


Factor 1 

18 19 20 21 22 23 24 25 26 27 ; 


Operation 

8 2930 31 32 


Table or Message Text 


1 Continuation! 


Resulting 
Indicators 


Comments 

sO 61 62 63 64 65 66 67 68 6970 71 72 73 74 75 76 77 78 79 80 
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1 


Factor 2 

33 34 35 36 37 38 3940 41 42 


Literal 


iBIank 1 






Result Field 


Arithmetic 


Name 
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Length 
49 50 51 


S Decimal Pos | 


S Half Adjust (H)| 


PlusjMinusjZero 
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11 
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Compare 
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1>2 
S4 55 


Low 
1<2 
56 57 
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Program Generation Printout 

Figure 11-3 shows the generation printout of IM1 10W. 



IBM SYSTEM/ 36 WSU RELEASE 03 


WSULIB XMllOW 


WORK STATION UTILITY OPTIONS 






NAME OF SOURCE RROCJRAM 


IMllOW 


NAME OF LIBRARY ♦ . ♦ 


USULIB 




REPLACE 


SOURCE PRINT OPTION LIST , NOLI ST , NOLI STS, NOLI STW 


LIST 


SIZE or- WORK FILE IN BLOCKS 1-9999 


50 


GENERATION OPTION PROC , NOPROC , PGM » NOPGM 


F'ROC 


CROSS-REFERENCE LEVEL .. 1»2,0 


2 


SAVE DISPLAY FORMAT SOURCE? , N,Y 


N 


SOURCE REFERENCE NUMBER 000077 

SOURCE REFERENCE DATE - —-12/09/85 

SOURCE REFERENCE TIME 07.55 




GENERATION REFERENCE NUMBER 000077 

GENERATION REFERENCE DATE 12/08/85 

GENERATION REFERENCE TIME 13.35 
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USULIB IMllOW 


G001. 


0001 


JIM now 


IMllOWD 


0410 










0002 


0002 


r;r,NvrRAN wsulib .iNyrRAN 








100 








0001 


FINVTRAN U 


91 










0003 




0O02 


.I.1NVTRAN 02 


2 CR 










0004 




0003 


:c 






1 


1 RCODE 




0005 




0004 


I 






2 


9 ITNBR 




000<f) 




0005 


1. 






10 


ISOQTYOR 




000'/ 




0006 


:r 






16 


23 CU6N0 




OOOSJ 




OOO? 


I 






24 


31 INl^NO 




0009 




0008 


X 






32 


37 TDATE 




00 .1. 0 




0009 


I 






38 


422PR1CE 




00 .1 .1. 




0010 


1 




P 


43 


472TC0ST 




00:12 




0011 


X 






48 


48 WRH8E 




00.1.3 




0012 


I 






49 


78 ITDSC 




00 14 




0013 


:t 03 












00:1.5 




0014 


1 






1 


1 RC^ODE 




00 16 




0015 


X 






2 


3 ITCLS 




0017 




0016 


X 






4 


11 ITNBR 




00 IB 




0017 


X 




P 


12 


162PRICE 




0019 




0018 


1 




P 


17 


2OOPONE1R 




0020 




0019 


1 






21 


260UIYRC 




0021 




0020 


I 






27 


32 TDATE 




0022 




0021 


1 






33 


33 WRHSe; 




002-3 




0022 


X 






34 


63 ITDSC 




0024 




0023 


X 01 












0025 




0024 


X 






1 


1 RCODE 




002A 




0025 


X 






^> 


9 ITNBR 




0027 




0026 


X 






10 


10 ACODE 




002£! 




0027 


X 






11 


lAOQTYIS 




0029 




0028 


X 






17 


22 TDATE 




0030 




0029 


X 






23 


23 WRHSE 




0031 




0030 


X 






24 


53 ITDSC 




0O32 


0003 


M 1 TEMEtAI... NMA .I' NL. I B F" I L.ESRC 


ITNBR 


89 














FITEMEiALNU 


128 3 I 


2 DISK 








0033 






iite:mbai..n oi 












O034 






I 






1 


1 ARCOD 




0035 






I 








9 X TNBR 




0036 






J. 






10 


10 WRHSE 




00^5 ^ 






1 




P 


1 1 


1 'tOo I UCiS 




0038 






I 




P 


IS 


iSOONORD 




0039 






I 




P 


19 


220AyAIL. 




0040 






I 




P 


23 


260REORD 




0041 






I 




P 


27 


300RENUM 





Figure 11-3 (Part 2 of 13). Generation Printout for Example Program 1 



11-18 IBM System/36 Work Station Utility Guide 













UlSULIB 


IMllOW 


0042 


I F' 


31 


340(31JSM(:) 








004;-5 


I 


35 


390QRCMG 








0044 


X I'-' 


39 


420QAl;iM0 








0045 


I P 


43 


460aUSYR 








0046 


I P 


47 


SOOQRCYR 








0047 


I P 


51 


'o4OaA0YR 








00 4f) 


X P 




580MDATE 








0049 


X P 


59 


620RRPST 








0050 


I p 


63 


660RRI..Sr 








0051. 


I 


67 


123 BUI-F'R 








0052 0004 


MITEMMSTRMAl'NLIEf t-'ILHSRC .TTNEfR 99 














FITEIMMSTRl) 128 8 T. 2 DISK 












0053 


HTE.MM£>TR 01 












0054 


1 


1 


1 AR(:;oD 








0055 


X 


2 


9 XTNBR 








OOSA 


X 


10 


39 I TD8C 








005? 


X 


40 


40 I TYPE 








0050 


X 


41 


42 1TCL.S 








0059 


X 


43 


47 WI-ISLC 








OOAO 


X P 


48 


510UfGHT 








006:1, 


X P 




562UCDST 








0062 


I I-' 




612PR1CE 








0063 


I (••■ 


62 


650MDATE 








0064 


I P 


66 


690RRFSr 








0065 


I P 


70 


730RRLST 








0066 


I 


74 


128 BUP"FR 








0067 0005 


SIMllOUDl Y YY 












0068 0006 


D 0205 Y Y 


P 


♦ C N y E N T 0 R Y 


A DX 






0007 


n J U S T M E N T S/I S S U fc" S/R E C £ X P T 












0069 0008 


D 0527 Y 


P 


'SELECT FUNCTION' 








VO tV VV\>V 


DFsCOIiE 0544 YA Y Y Y Y 












0071 OOlO 


D 0730 


P 


'ADJUSTMENTS -A' 








0072 0011 


r.i 0830 


P 


'ISSUES -I' 








0073 0012 


D 0930 


P 


'RECEIPTS -R' 








0074 0013 


n 1127 


P 


'ITEM NUMBER' 








0075 0014 


DITNBR 1139 YN Y B Y 












0076 0015 


D 2206 


P 


'F'resfS Cmd key 7 -to 


endX 






0016 


D sees ion* 
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USULIB 


IMllOW 


00'77 


0017 


C KG 






SETON 


EW USE CMD 7 TO END JOB 






0078 


0018 


C KG 






GOTO 


END 








0079 


0019 


C 






GI-:T 


.TTEMMSTR 


89 






0080 


0020 


c 






GET 


1 1 EMBALN 


89 






0081 


0021 


C 89 






MSG 


'ENTER VALID ITEM 


MUX INVALID ITEM NUMBER 








0022 


CMBER* 
















0082 


0023 


C 89 






PUTS 


XMllOWDl 








0083 


0024 


C 


RCODE 




COMP 


♦A* 


01 ADJUSTMENTS <01> 






0084 


0025 


C 01 






PUTS 


IM110U1I2 


GET ADJUS7MENT DSPLY 






0085 


0026 


c 


RCODE 




COMP 


'I» 


02 ISSUES <02> 






008A 


0027 


C 02 






PUTS 


1M110UD3 


GET ISSUES DISPLAY 






0087 


0028 


c 


RCODE 




COMP 


'R' 


OVJRECEIPTS <03) 






0088 


0029 


C 03 








I Ml 10WD4 


GET RECEIPTS DSPLY 






0089 


0030 


C N01N02N03 




M8G 


' INVALID FUNCTION ' 


INCORRECT FUNCTION 






0090 


0031 


C N01N02N03 




P'UrS 


IMllOWDl 








0091 


0032 


C 


END 




TAG 




SESSION ENDS 






0092 


0033 


SIM110WD202 


Y 




Y 


Y Y 








0093 


0034 


D 


0221 






Y Y 


P > I N V E N T 0 R Y A DX 








0035 


i:i J U S T M 


F.r. N T S» 














0094 


0036 


D 


0406 








P'lTEM NUMBER' 






0095 


0037 


niTNBR 


0419Y 














0096 


0038 


D 


0434 








P' DESCRIPTION' 






0097 


0039 


1.1 X rose 


0447Y 














0098 


0040 


D 


0606 








P' QUANTITY RETURNED' 






0099 


0041 


nOTYRC 


0624 


Y 


Y ZY 


Y 








0100 


0042 


D 


0634 








P' ADJUSTMENT CODE' 






0101 


0043 


nACODE 


06S0 


YN Y 


Y 








0102 


0044 


n 


0806 








P ' RECE I V I NG WAREHOUSE » 






0103 


0045 


nURHSE 


0826Y 














0104 


0046 


D 


0834 








P' SELECT ADJUSTMENT CODEX 








0047 


11 > 
















0105 


0048 


D 


0936 








P'l- Damaged in sl-i i'pp i ngX 








0049 


















010<5 


0050 


D 


1036 








pt2-^ Incorrect Size' 






0107 


0051 


D 


1136 








P'3- Incorrect Color' 






0108 


0052 


n 


1236 








P'4-- Incorrect Item' 






01 09 


0053 


n 


1336 








P'S-" Other' 






0110 


0054 


D 


2106 








P'Pre«s Enter key to conX 








0055 


nt i nue' 
















0111 


0056 


D 


2206 








P' Press Cmd key 7 to endX 








0057 


P sess ion' 
















0112 


0058 


D 


2306 








|:'» Press Cmd key Q to ret' 








0059 


Eiurn to previous menu 
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GET 
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ITEMBALN 










0110 


0065 
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PUTS 
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0066 


c 


acode: 




COMP 
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72 




0120 


0067 


C N72 






MSG 


> INVALID 


CODE' 








0121 


0068 


C N72 






PUTS 


IM110Wi:i2 














c 






MOUE 


UDAIE 


T DAT E 








01 23 


0070 


C 






PUT 


1 NV 1 KmN 






01 




0124 


0071 


c 


ENDl 




TAG 












01 


00 "7 2 


CITMi i ALIT^T 
O X n X J. k/Wl.<0 






Y 




Y Y 








0 1 


OOV 3 




0*^25 






Y 






r'XNVfc.N 1 UKT X OA 








r o r Of 
^ v> . .J 


















01^ f 


00*75 


D 


0406 












r ' i 1 fc.rl NUritil::.K ' 




01 28 


00 7 A 


11.1 1 NWK 


0420Y 
















012*? 


0077" 


t' 


0434 












r-^ L'l-tjL/KlP 1 lUN' 




0130 


00 y 8 




044*7Y 
















0 1 sS 1 


oow 


D 


0606 
















01 


OOOO 




0620Y 
















A1 'in 


0081 




0634 












L*i f TCGi IT kir* 1 iA.oi::*Ljm tec ♦ 






0082 




06S2Y 
















Olo*./ 


0083 


E' 


0806 












» * TWlinTr^LT Kit IMCiCO f 




01 3<S 




ri T Ml iMrt 
1.1 .L NViNLJ 


082 1 




Y 2Y 




Y 






013V 


OOoxj 


E* 


0834 












l:« t r*i iCT'fiMC'o mi imqcc* ♦ 
r ' UUe> 1 L>ric.K NUrll9b.r\ ' 




0 1 38 






0850 


Y 


Y Z 






Y 






0 1 3V 


008 f 




1006 












& # m lAVITT'I'V TCSei ICTi ♦ 

r ' UUftN 1 1 1 T xbc>Ub.D ' 




0140 


0088 




1023 


Y 


Y 2 






Y 






0141 


0089 


D 


2106 












P'Pvess Enter key to conX 


























0142 


0091 


D 


2206 












ptp've*5S Cmd key 7 to endX 






0092 


r.i sees i o T> • 


















01 43 


0093 


n 


2306 












P ' Press Cfnu Key 8 to r et X 






0094 


Durn to previous menu 














0 1 44 


009*j 


C KG 






se;ton 






fc-W UfriU r lU fc.NL' c>fc.oc>XUN 




0145 


009& 


C KG 






GOTO 


END2 










0146 


0097 


C KH 






PUTS 


IMllOUDl 










0147 


0098 


C 






GET 


ITEMMSTR 






nric> 1 c.r\ r xi.c:. \ x t cn/ 




0148 


0099 


C 






GET 


ITEMBALN 






MASTER FILE (BALANCE) 




0149 


OlOO 


C 






PUTS 


IM110WD3 










0150 


OlOl 


C 


QTYIS 




MULT 


PRICE 


TCOST 








0151 


0102 


C 








UDATE 


TDATE 




DATE TO TRANS FILE 
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Y 
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D 
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Y 


Y 
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0107 
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0.1.56 
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n 
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P'ITEM NUMBER' 
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i:i.TTNBR 


0419Y 












0.1.58 


0110 


n 


0434 






P'M-;:script;con> 
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0111 


MTDSC 


0447Y 












01 AO 


0112 


n 
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P * OREiER NUMBER ' 






0161 


0113 




0619 Y 


Y ZY 




Y 






0162 
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D 
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p > QUANT :t t y rece :e yEEi ' 
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0115 
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Y 7. 
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0164 
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P'ITEM COST' 
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El 
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P' receiving WAREHOUSE' 
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D 
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P'Press Enter key to conX 








0121 


ti'l: i r»ue* 
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0122 


D 


2206 






P ♦ Pv erAiiv Cmd key 7 +o endX 








0123 


It session' 












0170 


0124 


n 


2306 






P'Pvews Cmd key 8 to retX 








0125 


Eiuvn to 


prev i ou<r> menu 












0171 


0126 


C KG 




SETON 




ew TO END SESSION 






0172 


0127 


C KG 




GOTO e;:ni:i3 
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C KH 




PUTS IMllOWDl 










0174 


0129 


c; 




GET ITEMMS7|:^ 




MASTER FILE (ITEM) 






0175 


0130 


C 




GET ITEMBAl-N 




BALANCE FILE (MASTER) 






0176 


0131 


c; 




PUTS lM110Wri4 










0177 


0132 


c 




MOVE UDATE 


TDATE 


DATE TO TRANS FILE 
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0133 


c 




PUT INVTRAN 




03 WRITE TO TRANS FILE 






0179 


0134 


c 


END3 
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USUL.IB 



INDICAIOK- name: USAGES 



NAME 


STMT* 






89 


»0032 


»00S2 


»0079 


NDTCATORS 


use; 1.1 






e:u kg kh 


01 02 03 


72 89 




name: 


AND L-AI^El 


USAGES 


NAME' 


STMT* 






»e:rr'C)R 








•xRI-NO 








»RLK'N 
















wRLRU 
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»usi:i:i 
















acode: 


«0027» 


0101» 


01:1.9 


ARCOD 
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*0039 






EUJFFR 


»0051 
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CUSNO 
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ENDl 


0114 
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END3 
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END 




0091 


TAG 














ENDl 
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NAME 
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STOCK 
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WSULIB IHllOU 



WSU-0325 UNREPERKNCED FIELD NAMES'. 



NAME 


STMT* 


QRCMO 


0043 


QADMO 


0044 




004;i 


QRCYR 


0046 


QAi:iYR 


0047 


MDATE 


0048 


RRFST 


0049 


RRL.ST 


OOfiO 


BUFFR 


OOJil 


ARCOD 


00S4 


ITYPE 


0037 


WHSLC 


0059 


WEGHT 


OOAO 


MDATE 


00A3 


RRFST 


00A4 


RRLST 


0065 


BUFFR 


006A 



SOURCE/OBJECT CROSS REFERENCES 

STMT* CSB lAR QSS DISF-LAYED TEXT FOR RROGRAMMEn HALTS < IMSG/MSG/DEBUG) 

0081 0000 0025 0009 ENTEI.R VALID ITEM NUME«ER 

0089 0000 0063 0009 INVALID FUNCTION 

0120 0007 003B OOOA INVALID CODE 



MAIN STORAGE REQUIREMENTS FOR WSU PROGRAM 
BYTES REQUIRED PER WORK STATION 
TIMES MAXIMUM NUMBER OF WORK STATIONS 
PLUS ADDITIONAL STORAGE REQUIRED 
YIELDS STORAGE REQUIRED FOR EXECUTION 

REGION REQUIRED FOR EXECUTION 



EXECUTION MINIMUM MAXIMUM 

28 284 

4 4 

9824 47368 

9936 48504 

lOK 48K 



DISK STORAGE REQUIREMENTS FOR WSU EXECUTION PROGRAM WORKFILE 

SECTORS REQUIRED PER WORK STATION 12 

TIMES MAXIMUM NUMBER OF WORK STATIONS 4 

PLUS ADDITIONAL DISK SECTORS REQUIRED 5 

YIELDS MINIMUM DISK SECTORS REQUIRED 53 

EXECUTION WORKFILE SIZE IN BLOCKS 6 



IMllOW PROCEDURE CREATED FOR EXECUTION 
// ATTR NEP~N0,MRTMAX-4 
// REGION SIZE-IO 
// LOAD *WSXI1 
// FILE NAME-INVTRAN, 
//IF DATAFl-INVTRAN D ISP -OLD 
// ELSE D ISP-NEW, RECORDS- lOO 
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USULIB 


IMllOU 


// FILE NAME- I TKMBALNfD ISP-OLD 
// r-lLC: NAME-ITeMMSTRfDISP-OLD 

// RUN 

// WSX OBJI.IBR-WSUI..IB , OBJMBR-IMl lOW ,l"MTL]:EfR-WSUL.IB,FMrMBR- IMJ. lOWD 

// ENi:i 






D.TA(3NO$3TIC TEXT 
NOTE* SEV MESSAGE TEXT 

WSU~0325 W LISTED FIELD NAME DEFINED BUT NOT REFERENCED. 






GENERATION SUCCESSFUL — WARNING ERRORS LISTED ABOVE. 







SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 










IMllOWD -■ Source member name 














000077 


REFERENCE NUMBER 


SIMll.OWni 0.1 NY Y 


















DSOOOOOO 1 0068020SY 


Y 


Y 








CI N V E N T 0 R 


Y A i;i 


X 


DJ U S T M E N T S/I S S U E 


S/R E C E 


I 


P 


T S 










080000002001 50527Y 






Y 






CSELECT FUNCTION 






DRCODE 00010544 YA Y Y 


Y 






Y 










DQ000000300 1 407;30Y 












CADJUSIMENTS -A 






DS000000400 1 40830Y 












C ISSUES -I 






DSOOOOOOSOOl 40930Y 












CRECEIPTS -R 






DS000000600 1 1 1 1 27Y 












CITEM NUMBER 






11.TTNBR 00081139 YN Y B 








Y 










DQ000000700302206Y 












CPress Cmd key 7 


io end 


X 


D<se»» i on 


















INPUT BUFFER DESCRIPTION 


















FIELD 


START 






END 










NAME LENGTH 


POSITION 






POSITION 






RCODE 1 


1 








1 








ITNBR 8 


2 








9 
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source:;, inplh s(:;k'h::i.~n format 


SOURCE SPECIF 


t CAT IONS 


IMl. 1.0WD •••• Source member name 




000077- REFERENCE NUMBER, 


SIM.U.0WD2 0.1 YNY 


Y 






DS000OO<>8<)O40O:32 1 Y 


Y 


Y 


CI N y E N T 0 R Y A D X 


li^J U S T M K NTS 








riS00O0O09O01 1040AY 






CITEM NUMBER 


DITNBR 000a04;l.9Y 








DS000001000J.10434Y 






CDESCRIPTION 


DirriSC 00300447Y 








DSOOOOO 1 :l. 00 1 70 AO AY 






CQUANTITY RETURNED 


DCnYRC 00070624 YS 


Y ZY 




Y 


0800000 12001 50&34Y 






CADJUSTMENT CODE 


riACODE: 0001 0A50 YN 


Y 




Y 


DSOOOOO 1300 1 9090 AY 






CRECE I V I NG WAREHOUSE 


DWRHSE 000 1082 AY 








DSOOOOO 1 40O220834Y 






CSELECT ADJUSTMENT CODE 


DSOOOOO 1 50022093AY 






CI- Dafflacped in sh i pp i 


DS000001A0017103AY 






C2~ Incorrect Size 


DS0000O1700181 13AY 






C3~ Incorrect Color 


DSOOOOO 180017 1 23A Y 






C4- Incorrect Item 


DSOOOOO 1 90008 1 33AY 






CS- Other 


DSOOOOO 2000272 1 06 Y 






CPress Enter key to contX 


D i mi© 








D8000002 1 00302206Y 






CPress Cmd k»y 7 to end X 


Dsess i 0 n 








DS000002200422306Y 






CPress Cmd key 8 to retuX 


Dm previous ntenu 








i?.:xecut:con time output buffer description 






FIELD 


START 




END 


NAME LENGTH 


POSITION 




POSITION 


ITNDR 8 


1 




8 


IT DSC 30 


9 




38 


WRHSE 1 


39 




39 


INPUT BUFFER DESCRIPTION 








FIELD 


START 




END 


NAME LENGTH 


POSITION 




POSITION 


QTYRC 6 


1 




6 


ACODE 1 


7 




7 
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SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 


IMllOWD ~ Source member name 


000077- REFERENCE NUMBER 


SlM110Wri3 Ol NY y 




DSO0000a3OO3OO225Y Y Y 


CINyENTORYISX 


D8 U E 8 




D8000002400 1 1 0406Y 


CITEM NUMBER 


niTNEtR 00080420Y 




riS000002r5001 .1.0434 Y 


CDE8CRIPTION 


niTDQC 00300447Y 




r.18000002600 1 30606 Y 


CSCLLING PRICE 


DPRICE 00090620Y 




DS00OO027OO.t70634Y 


CI6SUING WAREHOUSE 


DURHSE 00010652Y 




DS000002800 1 40806 Y 


C INVOICE NUMBER 


DXNyNO 0008082.1 Y Y ZY 


Y 


08000002900 1 50834 Y 


CCUSTOMER NUMBER 


DCUSNO 000808S0 Y Y Z 


Y 


08000003000 1 5 1 006 Y 


CQUANTITY ISSUED 


DQTYIS 0OO73.O23 YS Y Z 


Y 


DS000003 1 00272 1 06 Y 


CPress Enter key to contX 


Ii i nue 




D8000003200302206Y 


CPress Cmd key 7 to end X 


Dse<»s i o n 




DS000003300422306Y 


CPress Cmd key 8 to retuX 


OrTt 0 i^^revious meviu 




EXECUTION TIME OUTPUT BUFFER DESCRIPTION 




FIELD START 


END 


NAME LENGTH POSITION 


POSITION 


ITNBR 8 1 


8 


ITDSC 30 9 


38 


PRICE 9 39 


47 


WRHSE 1 48 


48 


INPUT BUFFER DESCRIPTION 




FIELD START 


END 


NAME LENGTH POSITION 


POSITION 


INVNO 8 1 


8 


CUSNO 8 9 


16 


QTYIS 6 17 


22 
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S01..IRCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 


J.M1. lOUD - fiouvce member name 


000077- REFERENCE NUMBER 


SIM110UD4 01 NY 


Y 




DEsooooorj^oos-aoiv^ i y 


Y Y 


CI N V E N T 0 R Y R E X 


DC E I P T S 






Dsooooorjsooi. 1040 ay 




C I TEM NUMBER 


DITNBR 000a0419Y 






DS000003A001 104.'J4Y 




CDESCR I P T I ON 


niTDSC 00300447Y 






DS000003700 1 20A0& Y 




uUKI.le.K NUrlcle.K 


DF'ONEiR 00080619 YS 


Y ZY 


Y 


IIS000003800170634Y 




CQUANTITY RECEIVED 


DQTYRC 000706bJ! YS 


Y Z 


Y 


riS00000390009080AY 






nUCOST 00090816Y 






DS000004000 1 90834 Y 




CRECEI'w'lNG WAREHOUSE 


DURHSE 0001085AY 




Y 


DS000004 1 00272 1 OA Y 




CF'ress Enter key to contX 


D i nue 






DS00000420030220AY 




CF'ress Cmd key 7 to end X 


Dsess i 0 n 






DS00000430042230AY 




CPress Cmd key 8 to retuX 


Drn to previous menu 






EXECUTION TIME OUTPUT BUFFER DESCRIPTION 




FIELD 


START 


END 


NAME LENGTH 


POSITION 


POSITION 


ITNBR 8 


1 


8 


ITDSC 30 


9 


38 


UCOST 9 


39 


47 


UIRHSE 1 


48 


48 


INPUT BUFFER DESCRIPTION 






FIELD 


START 


END 


NAME LENGTH 


POSITION 


POSITION 


PONBR 7 


1 


7 


QTYRC i> 


8 


13 



WSULIB ■ 


INPUT LIBRARY 


NAME 
























WSULIB - 


■ Output library 


name 






















IMllOWD ■ 


• Format Load member 


name 
















000077- 


REFERENCE NUMBER 


FORMAT IMllOUDl REQUIRES 


512 


BYTES 


OF 


STORAGE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH 


OF 


223 BYTES 


FORMAT IMH0UD2 REQUIRES 


768 


BYTES 


OF 


STORAGE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH 


OF 


443 BYTES 


FORMAT IM110WD3 REQUIRES 


SI 2 


BYTES 


OF 


STORAGE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH 


OF 


361 BYTES 


FORMAT IM110WD4 REQUIRES 


512 


BYTES 


OF 


STORAGE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH 


OF 


338 BYTES 
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Example Program 2: Item Master File Maintenance 



This program, named IM300W, allows a maximum of two operators to 
concurrently enter additions, changes, and deletions to a master file 
(ITEMMSTR). Input from operators consists of entering an item 
number, selecting a function, and responding to requests from the 
display. 

Output consists of a master file that contains all operator entered 
additions, changes, and deletions (ITEMMSTR). 



Running IM300W 



To initiate WSU program IM300W, the operator enters the procedure 
name, IM300W. 



MAIN 

Main Systein/36 help menu 
Select one of the following: 

1. Display a user menu 

2. Perform general system activities 

3. Use and control printers, diskettes, or tape 

4. Work with files, libraries, or folders 

5. Use programming languages and utilities 

6. Communicate with another system or user 

7. Define the system and its users 

8. Use problem determination and service 

9. Use office products 
10. Sign off the system 



Cmd3-Previous menu Cmd7-End Cmdl2-How to use help 

Ready for option number or command 
IM300W 



Wl 



Home-Sign on menu 



(c) 1985 IBM Corp. 



This display occurs when an operator initiates the WSU program 
IM300W. 

The operator enters either a new item number or an existing item 
number. 



ITEM MASTER FILE MAINTENANCE 



Item number 00000009 



Press Enter key to continue 
Press Cmd key 7 to end session 
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If the operator enters a new item number, the title of the next display 
is Item Master File - Additions. 



ITEM MASTER FILE-ADDITIONS 

Item number 00000009 Description two drawer file - green 

Item type .E Unit cost .0.0^002567 

Item class .BjC. Unit weight .QQ(iQQ3[^" 

Stock location .B.CP.E.F. Selling price 000.0.0.5899 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to first menu 



This display has seven input fields: 

• Description 

• Item type 

• Unit cost 

• Item class 

• Unit weight 

• Stock location 

• Selling price. 

An entry is required in all fields. Command key 8 causes the previous 
display to be shown without any processing on the additions display. 
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If the operator entered an existing item number on the first display, the 
title of this display is Item Master File - Changes/ Deletions. 


ITEM MASTER FILE-CHANGES/DELETIONS 



Item number 00000009 

Action C 
Enter C- changes 
D- deletions 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to first menu 



This display has one input field (Action). Command key 8 causes the 
previous display to be shown without any processing. 



If the operator selects action C (changes) on this display, the title of 
the next display is Item Master File - Changes. 
. . _ ^ . 



ITEM MASTER FILE-CHANGES 



Item number 00000009 

Item type B. 

Item class AB. 

Stock location ABCDE 



Description three drawer file - blue 

Unit cost PPPPP3984 
Unit weight 0000045. 
Selling price 000007598 



Date last maintained 010182 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cffld key 8 to return to first menu 

\ J 



When this display appears, WSU shows all of the current information 
about this item from the master file. All of the fields except the item 
number and the date of the last change can be changed by the 
operator. When the Enter key is pressed, processing continues and 
the first display is shown again. Command key 8 causes the previous 
display to be shown again without any processing. 

If the operator enters a D on the Changes/ Deletions display, the item 
Master File - Deletions display appears. 
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ITEM MASTER FILE-DELETIONS 
Item number 00000009 Description three drawer file - blue 



THIS ENTRY IN THE MASTER FILE MILL BE 
DELETED WHEN THE ENTER KEY IS PRESSED 



Press Enter key to continue 

Press Cmd key 7 to end session 

Press Cmd key 8 to return to first menu 

V J 



No entries are allowed on this display. When the operator presses the 
Enter key, the current item number is marked for deletion and cannot 
be called up for changes again. Command key 8 causes the previous 
display to be shown again without any processing. 



Coding Forms 



In this example, the file definition uses one source member and one 
session-level field: 



• FILESRC contains F- and I -specifications for the item master file, 
ITEMMSTR. 

• SFLD is the session-level field used for the change code. 
Figure 11-4 shows the file definition for example program 2. 
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File Description Specifications 



For the valid entries for a system, refer to the RPG reference manual for that system. 



Block 
Length 



Record 
Length 



Mode of Processing 



Length of Key Field or 
of Record Address Field 



Record Address Type 



Type of File 
Organization or 
Additional Area 



Overflow Indicator 



Key Field 
Starting 

Location 



External Record Nan 



19 20 21 22 23. 24 26 26 27 28 29 30 31 32 33 34^35 36 37 38 39, 



LBS 8 I 



Symbolic 
Device 



47 48 49 SO 51 52 



Name of 
Label Exit 



Extent Exit 
for DAM 



Storage Index 



Continuation Lines 



Option 
55 66 57 58 59 



Entry 
I 61 62 63 64 65 



File AdditionAJnoidered 



Number of Tracks 
for Cylinder Overflow 



Number of Extents 



Tape 
Rewind 



File 

Condition 
U1-U8, 



T 


Filename 
or 

Record Name 


Sequence 


UJ 
Z 

E 
z 

17 


d 
g 

s 

1 

18 


Z Record Identifying Indicator, 
g ".orDS 


External Field Name 


{ £ Stacker Select | 


IS P/8/L/R 1 


Field Location 


1 S Decimal Positions 1 


RPG 
Field Name 

53 64 55 56 57 5B 


1 

0 

o 

59 60 


2 Matching Fields or 
^ Chaining Fields 


8 

J Field Record Relation 


Field 
Indicators 


71 72 73 74 


Line 

3 4 5 


6 


Record Identification Codes 


1 






2 








3 








From 


To 


Plus 

66 66 


67 68 


Zero 
or 

Blank 
69 70 


Position 

21 22 23 24 


Z 

z 

25 


a 

Ri 
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26 


1^ Character 


Position 
28 29 30 31 


Z 
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32 


1 t! ■ C/Z/O 


1 S Character 


Position 
35 36 37 38 


Z 

o 
z 

39 


0/Z/D § 1 


1 ^ Character 


Data St 


ructure 


Data 
Structure 
Name 
7 8 9 10 11 12 


13 


0 
A 


R 
N 
15 


D 
16 


Occurs 
n Times 

44 45 4« 47 


Length 
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r 
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R 
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Filename 
or 

Record Name 



Data 
Structure 
Name 
9 10 11 



External Field Name 



Record Identification Codes 



21 22 23 24 



3S 36 37 38 



Field Location 



Field 
Indicators 



Data Structure 



Occurs 
n Times 

4 45 40 4 



Length 

48 49 50 51 



RPG 
Field Name 



S3 54 55 58 57 S8 



f 
61 63 I 



Zero 

or 

Blank 



SFLD 



0i 



Figure 11-4. File Definition for Example Program 2 
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The source program is in a source member named IM300W. Figure 11-5 
shows the WSU specifications for IM300W. 



S/36 WSU Job, Array, and File Specifications 
Job Specification 



or 



Display 
Format 
Member 



9 10 n 12 13 14 15 16 1 7 18 19 20 21 22 23 24 25 26 27 2B ?9 30 



MessaQe 
Member 



m m^mmiinvi jrmmwjm m m u muij] i rr [rt:i t tt t h 1 1 1 1 ,t t \m 

Array Specifications 



3 7 38 39 4 0 41 42 «3 44 4& 46 47 48 49 50&1 52 53 54 5S 56 57 56 59 60 61 62 63 64 65 66 67 6B 69 70 71 73 73 74 75 76 77 76 79 80 



IT 

Sequence 
Number 
1 3 3 4 5 


K 
6 


Reserved 

1 8 9 10 n 13 13 14 16 16 t7 18 19 20 21 33 33 2425 26 


Arrav 

27 28 29 30 31 32 


33 34 35 


Number 
of Entries 
(jer 
Array 
36 3 7 38 39 


Length 
of 

40 41 42 


w Reserved 1 


t Decimal Positions I 


J; Sequence (A/D) | 


46 4 7 48 49 50 51 52 53 


54 5b 56 5 7 &8 59 60 61 62 63 64 66 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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Transaction/Master File Specifications 



Sequence 
Number 
1 2 3 4 S 


6 


File 

7 a 9 10111313 1^ 


File Definition Location 




GET F 




**ames 


49 5 


Reserved 
51 52 53 5 


'f 1 

56 5 


Number 
of 

Records 

67 58 59 6 


81 6 


S File Definition Type 1 


Reserved 

4 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 


Name 
15 16 17 18 19 20 21 23 


Member 
23 24 25 36 27 28 29 30 


Name 1 

31 32 33 34 35 36j 


Name 2 
37 38 3940 41 4 
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Figure 11-5 (Part 1 of 7). WSU Specifications for Example Program 2 
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System/36 Display Format Specifications 

Display Control Specification 



Sequence 
Number 



lint: 



Display 
Format 
Name 



mmmi 



I 



Enter 
Mode 
Sequence 



Review 

Mode 

Record 

Identifying 

Indicators 



Insert 

Mode 

Record 

Identifying 

Indicators 



dm 



64 66 66 6 7 68 69 70 71 72 73 74 75 76 77 IB 79 



TTTTmTITT 



The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the 0 specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 



□ 

Sequence 
Number 

1 2 3 4 5 


j Specification Type 1 


WSU 

Field Name 


WSU Arrays 


Starting 
Location 


^ Output Data 


S Edit Code (WSU Only) | 


1 S Input Allowed I 


y Data Type 1 


\S Mandatory Fill I 


1 S Mandatory Entry | 


o 
1 

30 


ly Adjust/Fill 1 


^ Position Cursor 


[S Enable Dup 1 


S Controlled Field Exit 1 


1 S Auto Record Advance | 


1 

37 38 


^ High Intensity 1 


CD 
41 42 


Q. 

C 
O 
Z 

43 44 


8. 
1 

s 

(E 
45 46 


Underline 


j £ Column Separators ] 


g Reserved 1 


1 
51 


Reserved 

52 53 54 55 


S Constant Type | 


Constant Data 


j Continuation | 


Elements per 
Row or Column 


[Fill Direction | 


1 Line Skip Factor 


Horizontal Positions 
Space Factor 


Z Line Number 


^ Horizontal Position 


Field Name 
7 8 9 10 11 12 13 14 


Field 
Length 
15 16 17 18 


1 2 3 4 5 6 7 8 9 10 1 1 12 13 14 15 16 17 18 19 20 21 22 23 


S7 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 
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Figure 11-5 (Part 2 of 7). WSU Specifications for Example 2 
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IBM 

System/36 Display Format Specifications 

Display Control Specification 



Use this coding sheet only to define display formats for WSU and 
SSFG R . This coding sheet could contain typographical errors. 



Sequence 
Number 



I 2 3 4 S 



Display 
Format 
Name 



II 

23 24l2!i 26 



Enter 
Mode 
Sequence 



Review 

Mode 

Record 

Identifying 

Indicators 



Insert 

Mode 

Record 

Identifying 

Indicators 



Key Mask 



64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 i 



The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 



□ 

Sequence 
Number 

1 2 3 4 5 


1 o> Specification Type I 


WSU 

Field Name 


WSU Arrays 


Starting 
Location 


^ Output Data 


_> 

o 

i 
1 

o 

25 


1 

o 

< 

1 

26 


1 
t- 

a 

27 


ISS Mandatory Fill 1 


S Mandatory Entry | 
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I'd Adjust/Fill 1 


Position Cursor 


a 
O 
5 

lU 

3 34 
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j ^ Auto Record Advance | 


I 

37 38 


^ High Intensity 
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41 42 


> 

O. 

c 
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z 

43 44 


8. 
1 

IT 
45 46 


c 
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C 
D 

47 48 


1 £ Column Separators ] 


S Reserved i 


1 

51 
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52 53 54 55 


1 S Constant Type | 
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1 Continuation | 


[Elements per 1 
|Row or Column j 


jFill Direction | 


|Line Skip Factor | 


Horizontal Positions 
Space Factor 


!o Line Numtwr 


Z Hori2ontal Position 


Field Name 
7 8 9 10 11 12 13 14 


Field 
Length 

15 16 17 18 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 
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S/36 WSU Processing Specifications 



a 

Saquence 
Number 

1 2 3 4 s 


|« Specification Type | 


S 
1 

3 
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7 8 


Conditioning 
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System/36 Display Format Specifications 

Display Control Specification 



n 1 


<^ Specification Type I 


Display 
Format 
Name 

; 8 9 10 1112 13 14 


- Format ID (WSU Only) 


- Start Line Number 


Number of Lines 
g to Clear 
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^ Reset Keyboard 
;o (WSU Only) 
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■D 
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1 y Enable Function Keys | 
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o 
d 

m 
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! w Erase Input Fields 


1 Z Override Fields j 


! ^ Suppress Input 


I^NullFM, 


is Reserved I 


IS Riqht-to-Uft Display | 


WSU Only 
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Key Mask 
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IS Reserved 1 


Sequence 
Number 

12 3 4 6 


Enter 
Mode 
Sequence 


■o 

i 

46 


& 
0 

i 

46 


£ 

47 


Review 

Mode 

Record 

Identifying 
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The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 
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The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the 0 specifications for a display format. Use the other side of this form to code the H specifications. 
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The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 




s 
I 

o 

23 2t 


S Edit Code (WSU Only) | 


Input Allowed | 


s. 

1- 
o 

27 


a Mandatory Fill ] 


!g Mandatory Entry | 


IS Self-Check 1 


hi Adjust/Fill 1 


g 

d 

c 
o 

32 33 


t Enable Dup 1 


Is Controlled Field Exit | 


[ ^ Auto Record Advance | 


1^ Protect Field | 


! ^ High Intensity 


\Z Blink Field 


Q. 

S 

1 

43 44 


^ Reverse 1 mage 


Underline 


£ Column Separators [ 


rS Reserved 1 


1 
61 


Reserved 
52 b3 64 65 


S Constant Type | 


Constant Data 


Continuation | 


1 2 3 4 6 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 2122 23 


67 68 59 60 61 62 63 64 65 66 67 68 69 >0 71 72 73 74 75 76 77 78 79 


80 


■ 
































Y 












Y 






















F 


\ 


I 




T 
















/ 




5 




T 




E 


R 






X 






i 




I 




c 




^ 




_s 


























































































































































P 




I 




c 


IT 






H 


m 


b 


e 


r 






















y 
















































































































1 


































































P 






e 


a 


e 


r 






+ 




o 


n 






















Y 






































































r 

T 


H 


r 


s 
































1 






























Y 


































P 






d 


N 


T 


R 


Y 


] 


[N 




T 


H 


E 


l» 


M 


S 


T 


X 


1 
















































































































































Y 






































Z 


tI 










H 


El" 


si 


T 


F 


E 




Eh 


JT 


E 


R 


X 










































































































































































f 


\ 


P 


r 


e 


ft 


ft 




E 


n 


+ 


e 


r 


k 


e 


>^ 




+ 


e 


c 


0 


r\ 


X 


1 










































































































































































F 


V 


P 


r 


e 


ft 


s 




C 


It 


el 




ke 






7 






o 


e 


n 


d 






















































































































































































P 


V 


P 


r 


e 


« 


« 




: 


n 


el 




k< 






6 




f 


0 


r 


e 




X 


u 

















































































































S/36 WSU Processing Specifications 




Figure 11-5 (Part 7 of 7). WSU Specifications for Example 2 



WSU Example Programs 1 1 -41 



Program Generation Printout 

Figure 11-6 shows the generation printout of IM300W. 



IBM SYSTEM/3A WSU RELEASE 03 




woUL. i. cl 1 n<3UUW 


WORK STATION UTILITY OPTIONS 










IM300W 






USULIB 


STOP OPTION HALT, NOHALT,NOSTOP, REPLACE 


REPLACE. 


SOURCE PRINT OPTION ... LIST ,NOL18T ,NOLISTS ,NOL 


ISTW 


LIST 




9999 


50 




PROC 






2 






N 


SOURCE REFERENC;E number 000079 

SOURCE REFERENCE DATE 12/08/ 8S 

SOURCE REFERENCE TIME 10.45 






GENERATION REFERENCE NUMBER 00OO79 

GENERATION REFERENCE DATE 12/08/85 

GENERATION REFERENCE TIME 13.36 
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0093 
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1 


1 CODE 






0020 


0004 


SIM300Wni Y Y Y 












0021 


OOOS 


U 


0213 Y Y 




F 


'ITEM MASTER X 








OOOA 


liF I L E 


■; MAINTENANCE' 
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ti 
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F 


' It em number ' 
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0009 
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F 


'F'ress En + er l-<ey to conX 








0010 


D-t i nue» 
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0011 
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2206 




F 


'Press Cmd key 7 to endX 








0012 


D sesB ion' 












0026 
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C KG 


SETON 




EU 








0027 


0014 


C KG 


GOTO ENIi 
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0015 


C 


GET ITEMMSTR 




89 


ITEM MASTER FILE 
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0016 


C 89 


PUTS IM300Wn4 






ADDITIONS TO MASTER 
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C 69 
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C * 
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0020 
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REPEAT DISPLAY 
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WSULIB IM300UI 



MAIN ,9T0RAGK REQUIRC- MENTS FOR USD PROGRAM EXECUT it ON MINIMUM MAXIMUM 

BYTES REQUIRED PER WORK STATION 32 320 

TIMES MAXIMUM NUMBER OF WORK STATIONS 2 2 

PLUS ADDITIONAL STORAGE REQUIRED 9234 48968 

YIELDS STORAGE REQUIRED FOR EXECUTION 9298 49608 

REGION REQUIRED F"OR EXECUTION lOK 50K 



DISK STORAGE REQUIREMENTS FOR WSU EXECUTION PROGRAM WORKFILE 

SECTORS REQUIRED PER WORK STATION 13 

TIMES MAXIMUM NUMBER OF WORK STATIONS 2 

PLUS ADDITIONAL DISK SECTORS REQUIRED 6 

YIELDS MINIMUM DISK SECTORS REQUIRED 32 

EXECUTION WORKFILE SIZE IN BLOCKS 4 



IM300W PROCEDURE CREATED FOR EXECUTION 

// ATTR NEF N0,MRTMAX-2 

// REGION SIZE-10 
// L.OAD *WSXI1 

// FILE NAME-ITEMMSTR,DISP-OLD 
// RUN 

// WSX OBJLIBR -WSULIB fOBJMBR - IM300U , FMTLIBR -WSULIB , FMTMBR-IM300UD 
// END 

ge:ni;;:i;'AT:i:dn successful --no e;:rrors :i;n this ge:neration. 



SOURCE INPUT SCREEN FORMAT SOURCE SPECIFICATIONS 

IM300WD - Source member name 000079- REFERENCE NUMBER 

SIM300WD1 01 NY Y 

DS000000100520213Y Y Y CI T E M M A S T E R FX 

DILEMAINTE NANCE 

DS000000200110531Y Cl+em number 

DITNBR 00080544 YN Y Z Y 

DS000000300272106Y CPress Enter key to co ntX 

D i nue 

DS000000400302206Y CPress Cmd key 7 to end X 

Dses>s i o n 



INPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION POSITION 

ITNBR 8 18 
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SOURCE INPUT SCREEN F"OR«AT SOURCE SPECIFICATIONS 

IM;?00WD - Source member name 000079- REFERENCE NUMBER 

s:tM30owri2 oi ny 

riS000000500A:j0210Y Y Y CI T E M M A S T E R FX 

n I I... E - C H A N (3 E Q/l) E U E T I O N S 

DS000000600J.1.053.0Y Cl+em number 

DITNBR 00080523 Y 

IIS0O0O0O70OO6071OY CAc+ion 
nCODE 00010723 YA Y Y 

DS0000008001708:l2Y CEn + er C- chaiigesi 

DS000000900120919Y CD - de let i o Tts 

DS00000.I.000272J.04Y CFress En-ter Mey to con+X 

D i nue 

liS00000J.100302.204Y CPress Cmd key 7 +o end X 

Dsesis ion 

DS000001200392304Y CPress Cmd key 8 to retuX 

Dr n to f i rat menu 



EXECUTION TIME OUTPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION POSITION 

ITNBR 8 18 



INPUT BUFFER DESCRIPTION 

FIELD START END 

NAME LENGTH POSITION POSITION 

CODE 111 
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SOURCE INPUT SC^REEN FORMAT SOURCE SPECIFICATIONS 


XM300WD Source? m(?fnbBV' rk€fn@ 


000079- REFERENCE NUMBER 


S.TM300WD3 01 NY Y 




DS000001300450216Y Y 


Y CI T E M M A S T E R FX 


IJ 1 U E - CHAN G E S 




DS00000.1 400 1 1 0404Y 


CX'te^in number ^ 


DITNBR 00030423 Y 




080000015001. 10436Y 


CD&sc r i p t i 0 n 


MTDSC 00300449 Y YB 


Y Y 


DSOOOOO 1 A00090A04 Y 


Clteih "kypet 


MTYPE 00010A23Y YB Y 


Y 


ItSOOOOOl 7000906V56Y 


CUn i + c ost 


nUCOST 0009065 lY YN Z 


Y 


DS000001800100704Y 


CI tern c lass 


DITCLS 00020723 Y YB Y 


Y 


DS0000019001 10736Y 


CU n i i we i 9h t 


DWEGHT 00070751 Y YN Z 


Y 


DS000002000 1 40804 Y 


CStock Locci'tion 


DUHSLC 00050a23Y YB Y 


Y 


DSOOOOOS 1 00 1 30836 Y 


CSe I L i pr i ce 


BPRICE 00090851Y YN Z 


Y 


0900000220020 1 204 Y 


CDa-t'e Las-t ma i nta i (ted 


DMBATE 00071226Y 




DS000002300282 1 04 Y 


CPress En+er hey to contX 


D i nu© 




riS000002400302204Y 


CPress Cmd l-te?y 7 to end X 


Dseas i 0 Ti 




Da000002500392304Y 


CF'ress Cmd Uey 8 to retiiX 


Dr T> +0 first me n u 




EXECUTION TIME OUTPUT BUFFER DESCRIPTION 




FIELD START 


END 


NAME LENGTH POSITION 


POSITION 


ITNBR 8 1 


8 


ITDSC 30 9 


38 


I TYPE 1 39 


39 


UCDST 9 40 


48 


ITCLS 2 49 
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SOURCE INPUT SCREEN FORMAT 
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CPress Cmd key 8 to retuX 
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DESCRIPTION 
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POSITION 


ITNBR 8 
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8 
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NAME 
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name 
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- Format load member 


name 
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REFERENCE NUMBER 


FORMAT 1M300WD1 REQUIRES 
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BYTES 


OF 


STORAGE 


AND 
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A 


DATA 


STREAM 


LENGTH 


OF 


157 


BYTES 


FORMAT IM300WD2 REQUIRES 


512 


BYTES 


OF 


STORAGE 


AND 
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A 


DATA 
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LENGTH 


OF 


265 


BYTES 


FORMAT IM300WD3 REQUIRES 
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BYTES 


OF 


STORAGE 
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A 


DATA 


STREAM 


LENGTH 


OF 


452 


BYTES 


FORMAT IM300WD4 REQUIRES 


768 


BYTES 


OF 


STORAGE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH 
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360 


BYTES 


FORMAT 1M300WD5 REQUIRES 
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A 


DATA 


STREAM 


LENGTH 


OF 
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Example Program 3: Sales Entry 



This program, named SE100W, allows one operator to enter monthly 
sales amounts. Input from the operator consists of a date and a sales 
amount. WSU uses array processing to display a sales summary 
listing the months, sales totals, and a yearly total. 



Running SE100W 



To initiate WSU program SE100W, the operator enters the procedure 
name, SE100W. 



MAIN 

Main System/36 help menu 



V/1 



Select one of the following: 



10. 



Di splay a user menu 

Perform general system activities 

Use and control printers, diskettes, or tape 

Work with files, libraries, or folders 

Use programming languages and utilities 

Communicate with another system or user 

Define the system and its users 

Use problem determination and service 

Use office products 

Sign off the system 



Cmd3-Previous menu Cmd7-End Cmdl2-How to use help 

Ready for option number or command 
SEIOOW 



Home-Sign on menu 



(c) 1985 IBM Corp. 



This display occurs when an operator initiates the WSU program 
SEIOOW. 

The operator enters the sales date (MMDDYY) and the sales amount. 
The information is put into a transaction file named SALESFLE. 



SALES RECORD ENTRY 
Date: .01ip82 Sales Amount: 1523000 

Press Cmd key 7 to end the program 
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This display (SALES SUMMARY) appears when the operator presses 
command key 7 to end the job after the last amount is entered. No 
entries can be made to this summary. By pressing the Enter key after 
viewing the summary, the operator can end this program. If you 
would like a copy of this summary, you can use the Print key to print 
the display. 



SALES SUMMARY 
Feb 2,615.00 
May 98.76 
Aug 45.67 
Nov 975.31 

GRAND TOTAL 29,802.61 



When you are finished viewing these totals, please press Enter 



Jan 1,526.00 

Apr 1,469.01 

Jul 12,345.67 

Oct 246.89 



Mar 345.67 

Jun 234.51 

Sep 25.80 

Dec 9,874.32 



Coding Forms 

In this example, the file definition is in two source members: 

o FILEDEF contains F- and l-specifications for the transaction file, 
SALESFLE. 

• FILEDEF contains F- and l-specifications for the master file, 
MONTHS. 



Figure 11-7 shows the file definition for example program 3. 
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File Description Specifications 



'For the valid entries for a system, refer to the RPG reference manual for that system. 
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Mode of Processing 
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Length 
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Length of Key Field or 

of Record Address Field 



Type of File 
Organization or 
Additional Area 
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I Key Field 
Starting 
Location 



7 8 9- 10 11 1213 



19 20 21 22 23 24 25 26 27 2B 29 30 31 32 33 34 35 36 37 38 39 



'IS 



40 41 42 43 44 45 46 



Symbolic 
Device 



47 48 49 50 51 52 



Name of 
Label Exit 



Extent Exit 
for DAIVI 



Storage Index 



Continuation Lines 



Option 
54 55 56 57 58 59 , 



Entry 
60 61 62 63 64 65 



File Addition/Unordered 



Number of Tracks 
for Cylinder Overflow 



Number of Extents 



Tape 
Rewind 

npiii 
Condition 
U1-U8, 



IBM 



Iniernviionai BuiiiwH Machtnc* Corporation 



RPG INPUT SPECIFICATIONS 



Kaying 
Inltruct'on 



Card Elaetro NumtMf 



Program 
Idantification I 



75 76 77 78 79 80 



T 


Filename 
or 

Record Name 
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Z 
1 

E 
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1 S Option (0), U. S 1 j 
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S ".orDS 


External Field Name 
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Field Location 


c 
o 
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1 
1 
1 

52 


RPG 
Field Name 
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^ Control Level (L1L9I | 
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1 ^ 

iz 
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"D 
X 
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71 72 73 74 




1 <» Form Type 
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2 
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Minus 
67 66 


Zero 
Blank 
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Position 
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1 32 
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File Description Specifications 



For the valid entries for a system, refer to the RPG reference manual for That system. 



DHBSSlSiiSl 



Block 
Length 



Record 
Length 



Mode of Processing 



Length of Key Field or 

of Record Address Field 



Record Addri 



Type of File 
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Additional Area 



Overflow Indicator 



Key Field 

Starting 

Location 



External Record Name 
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The source program is in a source member named SE100W. Figure 
1 1 -8 shows the WSU specifications for SE100W. 




S/36 WSU Job, Array, and File Specifications 
Job Specification 
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Program 
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Display 
Format 
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1 

cr 

41 42 


: 

a ^ 

13 4 


1 

Reserved 

4 45 46 47 48 49 50 61 52 63 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 


I 1 1 1 


SEU^flWI 




MIIIM 










miiHiiiiiiiiiiiiiii!imi!niMi 



Array Specifications 
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Transaction/Master File Specifications 
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S/36 WSU Processing Specifications 
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System/36 Display Format Specifications 



D ispiay Control Specification 
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The H specifications are optional. If you choose to use the H specifications, they must he placed between the S specification 
and the D specifications for a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 



□ 

Sequence 
Number 

12 3 4 5 


Specification Type 1 


WSU 

Field Name 


WSU Arrays 


Starting 
Location 


s 
1 

d 

23 2' 


1 a Edit Code (WSU Only) | 


Ig Input Allowed 1 


1 5; Data Type j 


I S Mandatory Fill 1 


1 a Mandatory Entry j 


30 


3 

31 


iition Cursoi 


a 

34 


Is Controlled Field Exit j 


^ Auto Record Advance j 


1^ protect Field | 


2 High Intensity 


2 
m 

41 42 


f 

c 
Z 
43 44 


1 
45 46 


c 

X) 
47 48 


J Column Separators I 


Reserved 1 


1 
51 


Reserved 


S Constant Type | 


Constant Data 


g 1 Continuation | 


Elements per 
Row or Column 


iFill Direction j 


[Line Skip Factor | 


Hori2ontal Positions 
Space Factor 


E 

3 

z 

c 

19 20 


Z Horizontal Position 


Field Name 
7 8 9 10111213 14 


Field 
Length 
15 16 17 18 


a 

32 


3: 


52 53 54 55 


1 2 J 4 5 6 7 8 91011121314151617 18 19 20 21 22 23 
57 58 59 60 61 62 63 64 66 66 67 68 69 >0 71 72 73 74 75 76 77 78 79 












D 


























0 


4 


3 


i 














- 


















Y 


































P 




5 


A 


L 


E 


S 




R 


E 


c 


G 








E 


H 


T 


F 


Y 






















0 


























a 


l6 


a 


1 
























Y 


































P 




D 




4 


s 




/ 














































D 


c 


A 


T 


E 


















a 


6 


e 


7 


















2 


































Y 










































































D 


























i 


h 


4 


i 










N 








t 
















r 




























P 


> 


5 




1 


e 


» 




A 


m 


o 


u 


n 




• 
































D 


s 




1^ 


A 


M 


T 
















t 


5 


5 








Y 






Y 


























Y 


















P 


r 


e 


• 


















































D 


























i 


6 




6 


























Y 








F 


8 




q 








k 


e 






7 




\ 


o 




e 


n 
















D 




f 


K 


e 


r 


e 




r 


a 


ft 



















































Figure 11-8 (Part 2 of 3). WSU Specifications for Example Program 3 



11-58 



IBM System/36 Work Station Utility Guide 



s/36 WSU Processing Specifications 
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Display Control Specification 



Sequence 
Number 



Display 
Format 
Name 



9 10 11 12 13 1 



35 36|3? 38 



Enter 
Mode 
Sequence 



Review 

Mode 

Record 

Identifying 

Indicators 



Insert 

Mode 

Record 

Identifying 

Indicators 



J 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 g 



The H specifications are optional. If you choose to use the H specifications, they must be placed between the S specification 
and the D specifications lor a display format. Use the other side of this form to code the H specifications. 



Field Definition Specification 



Sequence 
Number 

1 2 3 4 5 


[ Specification Type I 


WSU 

Field Name 


WSU Arrays 


Starting 
Location 


Q 
I 
1 
23 2^ 


S Edit Code (WSU Only) | 


S Inpot Allowed | 


a Data Type 1 


IS Mandatory Fill I 


K Mandatory Entry | 


!S Self-Check 1 


y Adjust/Fill 1 


^ Position Cursor 


S Enable Dup | 


S; Controlled Field Exit 1 


^ Auto Record Advance i 


^ Protect Field | 


High Intensity j 


2 Blink Field 


a 

1 

43 44 


1 

cc 

45 46 


2 Underline 


g Column Separators | 


S Reserved 1 


1 

0 
61 


Reserved 
52 53 64 65 


S Constant Type | 


Constant Data 


[ Continuation | 


(Elements per j 
|Row or Column | 


]Fill Direction ] 


|Line Skip Factor | 


Horizontal Positions 
Space Factor 


M Line Number 

o 


Z Horizontal Position 


Field Name 
7 8 9 10 11 12 13 14 


Field 
Length 
15 16 17 18 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 2; 


67 68 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 76 76 77 78 79 


80 
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h 






Y 






























































































































D 


























L 


5 


a 


2 


































Y 


































F 


% 














? 




7 




1 


: 


T 
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Program Generation Printout 

Figure 1 1 -9 shows the generation printout for SE100W. 



IBM 8YSTEM/36 WSU RELEASE 03 


USULIB SEIOOU 


WORK STATION UTILITY OPTIONS 






SEIOOU 




WSULIB 


STOP OPTION ♦ . . HALT, NOHALTfNOSTOP, REPLACE 


REPLACE 


SOURCE PRINT OPTION . . LIST,NOLIST»NOLlSTS,NOLISTW 


LIST 




50 




PROC 




2 




N 


SOURCE REFERENCE NUMBER 00007-4 

SOURCE REFERENCE DATE— 12/10/8S 

SOURCE REFERENCE TIME X^*^l 




GENERATION REFERENCE NUMBER 000074 

GENERATION REFERENCE DATE 12/10/8S 

GENERATION REFERENCE TIME 12.58 
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I 



















WSULIB 


SEIOOW 


0001 


0001 


JSEilOOU SEIOOWD 


W8UL.IB 0110 












0002 


0002 


E 


SA 12 


7 2 






SALES ARRAY 






0003 


0003 


E 


MNM 12 


3 












0004 


0004 


E 


SALTOT 12 


7 2 












0005 


0005 


TSALESFl-EWSULIB FILEDEF 




79 




10059 










002S FSALESFLEI 


98 














000<6 




0026 ISALESFLE 


01 1 CS 














0007 




0027 I 








1 


1 RCODE 






0008 




0028 I 








2 


70DATE 






0009 




0029 I 








8 


142SALAMT 






0010 




0030 I 


02 1 C^ 














0011 




0031 I 








1 


1 TCODE 






0012 




0032 I 








2 


8S2SALT0T 






0013 


0006 


MMONTHS STNUB FILEDEF RECNUM 




89 




69 










0033 FMONTHS I 


40 














0014 




0034 I MONTHS 


01 37 CM 














0015 




0035 1 








1 


36 MNM 






0016 




0036 I 








37 


37 CODE 






0017 




0037 I 








38 


400RECNUM 






0018 


0007 


CIJ 


Z-ADDl 


RECNUM 










0O19 


0008 


CIJ 


GET MONTHS 








GET MONTHS MASTER FLE 






0020 


0009 


CIJ 


GETPR8ALESFLE 








GET AMNT TRANS FILE 






0021 


OOlO 


CIJ 


MOVE SALTOT 


SA 






MOVE AMNTS TO ARRAY 






0022 


0011 


SSEIOOWDI 0124 




YY 












0023 


0012 


D 0431 


Y 






P 


'SALES RECORD ENTRY* 






0024 


0013 


D 0621 


Y 






P 


♦Da-te: ' 






0025 


0014 


DDATE 0627 


YN Z 




Y 










0026 


0015 


D 0641 


Y 






P 


'Sales Amount J' 






0027 


0016 


DSALAMT 0655 


YN Z Y 




Y 










0028 


0017 


D 0806 




Y 




P> Press Cmd key 7 to end- 








00 18 


Ii the program* 
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WSULIB 


SEIOOU 


0029 


00 1 9 


C KG 






SETON 






EW 


OPERATOR SIGNALED 






0030 


0020 


C K(3 






GOTO END 








END-OF-JOB 






003:1. 


0021 


c 






MOUELDATE 


MTH 


20 




EST* the; sales month 






0032 


0022 


c 


MTH 




RAN(3E 1 


:l.2 






50TEST FOR VALID MONTH 






0033 


0023 


C N50 






MSG ' INVALID 


DATE ♦ 






MTH NOT JAN THRU DEC 






0034 


0024 




SALAMT 




ADD SA , M7H 


SA , MTH 






ACCUMULATE TI4E SALE 






0035 


0O25 


c; 






MOK>E 'S* 


RCOT)E 






EST. THE RECORD CODE 






0036 


0026 


c 






PUT SALESFLE 






01 


WRITE TRANS. RECORD 






0037 


0027 


c 


END 




TAG 














0038 


0028 


C KG 






XI-OOTSA 


TOTAL 


:102 




TOTAL OF ALL SALES 






0039 


0029 


C KG 






MOVE 'T' 


TCODE 












0040 


0030 


C KG 






Z-ADDSA 


SALTOT 






SAVE MONTHLY TOTALS 






0041. 


003:1. 


C KG 






PUT SALESFI..E 






02 


MOVE TO TRANS FILE 






0042 


0032 


SSSi:^3.00WD2t;:W03.24 


















0043 


0033 


ti 


0435 




Y 






P 


'SALES SUMMARY* 






0044 


0034 


DSA 


03R:l. :l.506:L4Y 


J 
















0045 


0034 


DBA 


, 000 3. 06:1. 4 Y 


J 
















0046 


0034 


D8A 


, 00020639Y 


J 
















0047 


0034 


DSA 


, 00030A64Y 


J 
















0048 


0034 


DSA 


, 000408 .t 4 Y 


J 
















0049 


0034 


DSA 


, 00050839Y 


J 
















0050 


0034 


DSA 


,00060864Y 


J 
















005:1. 


0034 


DSA 


,0007.103.4Y 


,.J 
















0052. 


0034 


DGA 


, 0008 :L 039 Y 


J 
















0053 


0034 


DSA 


,0009 3. 064 Y 


J 
















0054 


0034 


DSA 


,00:l01.214Y 


J 
















0055 


0034 


DSA 


,00.13.:L239Y 


J 
















0056 


0034 


DSA 


,00:l2:l.264Y 


J 
















0057 


0035 


DMNM 


03R1 220609 Y 


















0058 


0035 


DMNM 


,000:1. 0609 Y 


















0059 


0035 


DMNM 


, 00020634Y 


















0060 


0035 


DMNM 


, 00030659Y 


















0063. 


0035 


DMNM 


, 00O408O9Y 


















0062 


0035 


DMNM 


, 00050834Y 


















0063 


0035 


DMNM 


, 00060859Y 


















0064 


0035 


DMNM 


,00073.009Y 


















0065 


0035 


DMNM 


,0OO81O34Y 


















0066 


0035 


DMNM 


,00091059Y 


















0067 


0035 


DMNM 


,00101209Y 


















0068 


0035 


DMNM 


,0013..1234Y 


















0069 


0035 


DMNM 


,00123.259Y 


















0070 


0036 


D 


3.523 




Y 






p GRAND TOTAL' 






0073. 


0037 


DTOTAL. 


3.541Y 


J 
















0072 


OOvJO 


D 


1556 




Y 












0073 


0039 


D 


2006 






Y 




P 


♦When you are finished - 
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0040 r.'v i ew i ng these? to + <al.Br please press Enter' 



INtHCATOR NAME USAGES 



name: 


STMT* 






lEU 


»0O29 






ij 


»0018 


»0019 


»0020 


K(3 


0029 


O030 


0038 


01 


»0006 


wool 4 


003A» 


02 


»0010 


004 1» 


0041 


SO 


W0032 


0033 




59 


»000S 






69 


»0013 






79 


4<0005 






89 


*0013 







r:i:ght •» == KEcoRn type reference 

LEFT » = DEFINITION 

»0021 
0039 0040 0041 
0036 



INDICATORS USED 

IJ EW KG 01 02 SO 

WSU-0320 UNREFERENCED INDICATORS 
59 69 79 89 



FIELD NAME 
NAME 
»ERROR 
»RI...NO 
»RI..RN 
«RLRR 
»RLRU 
«SLNO 
»USID 
wUSID 



UDATE 
UDAY 
UMONTH 
UYEAR 



AND LAREL 
STMT* 



RIGHT 
LEFT 



t.)l-'i:iATK: REFERENCE 
DEFINITION 



CODE 


»001.<f> 








DATE 


»OOOBk 


0025« 


0031 




END 


0030 


»0037 






MNM 


»00O3 


*00:l5 


00S8 


OOS9 


MTH 


»0031« 


0032 


0034 


0034 


RCODE 


•»0007» 


003S» 






RECNUM 


0013 


»0017 


0018» 




SA 


»00O2 


002 1» 


0034 


0034» 




0054 


005S 


OOSA 




SALAMT 


»0009» 


0027» 


0034 




SALTOT 


»0004 


»0012» 


0021 


0040» 


TCODE 


»0011» 


0039* 






TOTAL 


»0038» 


0071 







0060 0061 
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USULIB SEIOOU 

MODE LEVEL DATA FIELD NAMES USED 



NAME 


DIM 


STMT* 


LNG 


DEC 


DISP 


LCL F/ICNT 


SCR 


SA 


0012 


0002 


007 


2 


OOOO 


OOO 


D 


MNM 


0012 


0003 


003 


A 


00S4 


001 


D 


SALTOT 


0012 


0004 


007 




0078 


001 




RCODE 




0007 


001 


A 


OOCC 


001 




DATE 




0008 


OOA 


0 


OOCD 


001 


D 


SALAMT 




0009 


007 


2 


00D3 


001 


D 


TCODE 




0011 


001 


A 


OODA 


001 




RECNUM 




0017 


003 


0 


OODB 


001 




MTH 




0031 


002 


0* 


OODE 


000 




TOTAL 




0038 


010 


2 


OOEO 


000 


D 



PROGRAM LABEL NAMES USED 
NAME STMT* TYPE 

END 0037 TAG 

WSU~0325 UNREFERENCED FIELD NAMES 
NAME STMT* 
CODE 0016 

SOURCE/OBJECT CROSS REFERENCES 

STMT* CSB lAR SSS DISPLAYED TEXT FOR PROGRAMMED HALTS ( I MSG/MSG/DEBUG > 

0033 0007 002A OOOA INVALID DATE 



MAIN STORAGE REQUIREMENTS FOR USU PROGRAM 
BYTES REQUIRED PER UORK STATION 
TIMES MAXIMUM NUMBER OF WORK STATIONS 
PLUS ADDITIONAL STORAGE REQUIRED 
YIELDS STORAGE REQUIRED FOR EXECUTION 

REGION REQUIRED FOR EXECUTION 



ITXON MINIMUM MAXIMUM 

28 AOA 

1 1 

10002 57368 

10030 57772 

lOK 58K 



DISK STORAGE REQUIREMENTS FOR W8U EXECUTION PROGRAM UORKFILE 



SECTORS REQUIRED PER UORK STATION 13 

TIMES MAXIMUM NUMBER OF WORK STATIONS 1 

PLUS ADDITIONAL DISK SECTORS REQUIRED 3 

YIELDS MINIMUM DISK SECTORS REQUIRED 16 

EXECUTION WORKFILE SIZE IN BLOCKS 2 



SEIOOW PROCEDURE CREATED FOR EXECUTION 
// ATTR NEP-N0,MRTMAX-1 
// REGION SIZE~10 
// LOAD *WSXI1 
// FILE NAME-SALESFLE, 
// IF DATAF1-8ALESFLE DISP~OLD 
// ELSE DI8P-NEW,REC0RDS-100 
// FILE NAME-MONTHS »DI8P-0LD 
// RUN 
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WSULIB 


SEIOOU 


// USX OBJLIBft-WSULIB , OBJMBR-SEIOOW , FMTLIBR-WSULIB , FMTMBR-SEIOOWD 

// END 






DIAGNOSTIC TEXT 
NOTE* SEV MESSAGE TEXT 

USU-0320 U LISTED INDICATORS DEFINED EiUT NOT f;;EF ERENCED . 
USU-0325 U LISTED FIELD NAME DEFINED BUT NOT REFERENCED. 






GENERATION SUCCESSFUL — WARNING ERRORS LISTED ABOVE. 







SOURCE INPUT SCREEN FORMAT 


SOURCE SPECIFICATIONS 








8E100UID - Source member name 










000074- REFERENCE NUMBER 


SSEIOOWDI 0124 NY 














DSOOOOOO 1 00 1 8043 1 Y 




Y 






CSALES 


RECORD ENTRY 


DS000000200050A2 1 Y 




Y 






CDate: 




DDATE 00060627 YN 


Z 




Y 








DS0000003OO 1 3064 1 Y 




Y 






CSa Les 


Amoun-t t 


DSALAMT 00070A55 YN 


z 


Y 


Y 








D800000040034080AY 




Y 






CPresB 


Cmd key 7 io end X 


D+he program 














INPUT BUFFER DESCRIPTION 














FIELD 




START 


END 








NAME LENGTH 




POSITION 


POSITION 




DATE & 




1 




6 






SALAMT 7 




7 




13 
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SOURCE INPUT SCREEN l-ORMAT SOURCE SPECIFICATIONS 


SEiOOWD - S 




000074- REFERENCE NUMBER 


ssEioowi: 


2 0124 NY 




DS000000500 ;l. 304 315 Y Y 


CSALES SUMMARY 




00100614Y 




USA 


00100A39Y 




nsA 


00100664Y 




i:iSA 


00100814Y 




DBA 


00100a39Y 




USA 


00100aA4Y 




D8A 


00101014Y 




DSA 


00 10:1. 039 Y 




EISA 


00101.0A4Y 




DSA 


00101 2:1. 4Y 




DSA 


00101239Y 




DSA 


00101264Y 




DMNM 


00030A09Y 




DMNM 


00030A34Y 




DMNM 


00030<f,59Y 




DMNM 


00030E)09Y 




DMNM 


00O30S34Y 




DMNM 


00030859Y 




DMNM 


ooo:jioo9y 




DMNM 


00031 034 Y 




DMNM 


00031 059Y 




DMNM 


00031209Y 




DMNM 


00031 234 Y 




DMNM 


000312S9Y 




DSOOOOOOAOO I V 1 Y Y 


C»*«**)» GRAND TOTAL 


DTOTAL 


00141S41Y 




DS0OO0O07OOO5.155AY Y 




DS0OOOOO80O622OO6Y Y 


CWhen you are finished vX 


D i ©w i r»«) 


these totaLst please press Enter 




EXECUTION TIME OUTPUT BUFI-ER DESCRIPTION 




FIELD 


START 


END 


NAME 


LENGTH POSITION 


POSITION 


SA 


10 1 


10 


SA 


10 11 


20 


SA 


10 21 


30 


SA 


10 31 


40 


SA 


lO 41 


50 


SA 


10 51 


60 


SA 


10 61 


70 


SA 


10 71 


80 


SA 


10 81 


90 


SA 


10 91 


100 


SA 


10 101 


no 


SA 


10 111 


120 


MNM 


3 121 


123 
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MNM 


3 


124 


126 


MNM 


3 


127 


129 


MNM 


3 


130 


132 


MNM 


3 


133 


135 


MNM 


3 


136 


138 


MNM 


3 


139 


:1.41 


MNM 




142 


144 


MNM 


3 


145 


147 


MNM 


3 


148 


150 


MNM 


3 


151 


153 


MNM 


3 


154 


156 


TOTAL 


14 


157 


170 



WSUHB -" INPUT LIBRARY NAME 




















WSULIB - Ou+pu+ Library name 




















SEIOOUD r-' or mat Load member name 
















000074- 


REFERENCE NUMBER 


FORMAT 8E100UD1 REQUIRES 256 BYTE8 


OF' 


81-ORAOE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH OF 


122 BYTES 


FORMAT SE100UD2 REQUIRES 768 BYTES 


OF 


STORAGE 


AND 


HAS 


A 


DATA 


STREAM 


LENGTH OF 


368 BYTES 
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Chapter 12. F-(File Description) and l-(lnput) 
Specifications 



This chapter summarizes the entries on the F- and {-specifications. A 
description and examples of the entries used by WSU can be found in 
Coding Files in Chapter 4. Example programs using F- and 
I -specifications can be found in Chapter 1 1 , WSU Example Programs. 

F-Specificatlon 

The file description specifications, which are coded on the RPG 
Control and File Description Specifications sheet, are RPG 
specifications that are used in your WSU program. The 
F-specifications are entered before your I -specifications in your file 
definition. WSU just uses the information from these speciifications 
that is needed to run your WSU program. Columns 16 through 23, 
28, 33 and 34, and 39 through 80 are not used by WSU; entries in 
these areas are ignored. The top area of this sheet, the control 
specifications, are not used by WSU. 



File Description Specifications 

For the valid antries for a system, refer to the RPG reference manual for that system. 





Filename 

7 8 9 ' 10 11 12 13 14 


File Type 


.< viL of ProcMms 


i 

s 

•a 
S 




Device 


1 


Name of 
Ubet Exit 


extent Exit 
t« DAM 




File AddOidftAMordered 


r 




S l/O/U/C/D 


Fll« Owunat o> 




Length of Key Freld or 
of Record Address Field 


$6 


^fi)ni&M'of Tr«du 
for Cytindcr Ovnflow 




& 
1^ 
E 
u. 
6 


1 




sr. 






Record Address Type 




NuRilwr at FxtMiu 




Stqunncc 


A/P/l/K 


Organiz 


File 
tion or 

inriicalo-- 


Storage Inde/ 


«S 69 






1 
> 


Fill Fonnat 




Rewind 


Un* 


stock 
Length 


Record 
Length 


S 
X 


t>.-K:!-:iwi 






File 

Condition 
111 iin 




Key Field 

Starting 

Location 


Continualian t«ies 


ur 

7t 72 


4 


1 ♦ « 


-. 








Entry 
U) CI fi.' OJ u« 










4a 4' 




Ol-!i"" 


» » « i» l*. 24 26 26 27 W 


29 30 31 32 33 $4 35 


36 37 


38 


m 


■'■7 43 


14 4'> 4<J 


4) 4S 


41 SI- i, -;■ 


0 


; 






































































































































ft 


1 






































































-■^ 




































































a 


i 
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The following entries on the F-specifications are used by WSU: 
File Name (Columns 7 through 14) 

The file name is a required entry and specifies the name of the 
transaction or master file used by the WSU program. No two files in 
the program can have the same name. The file name can be from 1 to 
8 characters and must be left-adjusted. The first character must be 
alphabetic; the remaining characters must be alphameric. Embedded 
blanks are not allowed. 

File Type (Column 15) 

Even though WSU treats the transaction file as a direct output file, 
code either I (input file) or U (update file) for the file type. Should 
these same specifications be used in an RPG II program, the I or U 
will have meaning to that program. A master file is an update file if a 
PUT or PUTN operation occurs for the file; it is an input file if a PUT 
operation does not occur for the file. 

If column 1 5 is blank or if any other entry is made, WSU continues 
processing but issues a terminal-error message for the file type, and 
does not produce a program because of the error. 

Record Length (Columns 24 through 27) 

The length (in bytes) of the records in the transaction file can be any 
number from 14 through 4096. This entry must be right-adjusted; 
leading blanks or zeros are allowed. The record length for a 
transaction file must include 13 bytes for the trailer; however, data 
cannot be specified in these last 1 3 bytes of the records. 

The length (in bytes) of the records in the master file can be any 
number from 1 through 4096. This entry must be right-adjusted; 
leading blanks or zeros are allowed. 

If columns 24 through 27 are left blank, WSU assumes a 256-byte 

record length, and continues processing the specifications, but issues 
a terminal-error message for the blank record length, and does not 
produce a program because of the error. 
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Length of Key Field (Columns 29 and 30) 



This entry applies only to indexed master files. Columns 29 and 30 
must be blank for a direct file. 

The length (in bytes) of the record key can be any number from 1 
through n. The key length must be right-adjusted, and leading 
blanks and zeros are allowed. 

• For a packed key, the maximum length is 8. 

• For a non -contiguous key, the maximum length is 99. (The length 
is the sum of the 2 or 3 fields used to make up the 
non-contiguous key.) 

• For all other keys, the maximum length is 99. 

For a blank or any other entry WSU assumes 3, and continues 
processing, but issues a terminal-error message and does not produce 
a program. 

Record Address Type (Column 31) 

This entry applies only to indexed master files. 

An entry of P signifies that the key is a packed decimal record key. 
An entry of A signifies that the entry is an alphameric record key. 
WSU assumes an A if a blank or any other entry is made. 

See Chapter 4, Coding Files, for a discussion of packed decimal and 
alphameric record keys. 

Type of File Organization (Column 32) 

This entry applies only to master files. 

An entry of I specifies that the type of master file is an indexed master 
file. If a blank or any other entry is made, WSU assumes a direct 
file organization. 

See Chapter 4, Coding Files, for a discussion of file organization. 
Key Field Starting Location (Columns 35 through 38) 

This entry applies only to indexed master files; it must be blank for a 
direct file. The starting position of a contiguous key in each record of 
an indexed master file can be any number from 1 through n. The 
entry must be right-adjusted; leading blanks or zeros are allowed. The 
maximum value (n) is the record length. The key's starting location 
plus the key's length minus one cannot exceed the record length. 

For a non-contiguous key, EXTK is entered in columns 35 to 38 
instead of the key field starting location. 

If a blank or any other entry is made, WSU assumes 1 , continues 
processing, but issues a terminal-error message for the invalid starting 
location, and does not produce a program because of the error. 
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i-Specification 



Input specifications are coded on the RPG Input Specifications sheet 
and follow the F-specifications in your file definition. WSU just uses 
I -specification entries needed to describe your files. The shaded areas 
are reserved; entries in these areas are ignored by WSU. 



RPG INPUT SPECIFICATIONS 



tional Business Machines Corp 





tnstrueiion 


Graphic 



































75 ?8 77 78 89 



Pro<iMi> [: 



Record Identification Codes 



44 45 46 47 ' 



53 54 55 56 57 58 



tnditatofb 




The following entries on the I -specifications are used by WSU: 
File Name (Columns 7 through 14) 

The file name is a required entry and specifies the name of a file or 
data area. No two files in the program can have the same name. The 
file name can be from 1 to 8 characters and must be left- adjusted. 
The first character must be alphabetic; the remaining characters must 
be alphameric. Embedded blanks are not allowed. 

An entry in File Name: 

• Must be the same name that is in File Name (columns 7 through 
14) of an F-specification (unless the I -specifications describe 
session-level fields or local-data-area fields) 

• Must be the same name that is in File Name (columns 7 through 
14) of an M- or T-specification 

• Must come before the associated field lines 

• Can be omitted when multiple record types are defined for the 
same file, but must be coded for the first record type. (This 
restriction does not apply to I -specifications that describe 
session-level fields or iocal-data-area fields). 

ANDJOR (Columns 14 through 16) 

The AND/OR lines are used to indicate a relationship between record 
IDs. For a further explanation of this entry, see the description of 
Record Identification Coc/es (columns 21 through 41) and Field Name 
(columns 53 through 58) of the I -specification in this chapter. 

WSU ignores entries other than AND or OR. For example, if you are 
using I -specifications from an RPG II program, or if you code the 
I -specifications so that a follow-on RPG 11 program can use them, 
columns 1 5 and 16 can contain characters or numbers that sequence 
record types. 
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Note: For coding information about AND/OR, see Chapter 4, 
Coding Files. 

Record Identifying Indicator (Columns 19 and 20) 

The record identifying indicator can be any number from 01 through 
89. This 2-digit entry assigns an indicator to a record type. Record 
identifying indicators must be unique within a file. 

The record identifying indicator entry must be bianic on a continued 
{-specification. 

Record Identification Codes (Columns 21 through 41) 

These entries describe a record type. Each I -specification record 
statement contains one, two, or three sets of record identification 
codes, each with the following subentries: 

• Position (columns 21 through 24, 28 through 31, and 35 through 
38) 

• Not (columns 25, 32, and 39) 

• C/Z/D (columns 26, 33, and 40) 

• Character (columns 27, 34, and 41 ). 

The last set of record identification codes should be the last 
information coded on that line (columns 42 through 80 should be 
blank). 

Position (Columns 21 through 24, 28 through 31, 35 through 38) 

The location in the record of the record identification character can be 
any number 1 through n. Entries must be numeric and 
right-adjusted. The maximum allowed position, n, is the length of the 
records for a master file (4096 is the maximum) and the length of the 
records minus 13 for the transaction file (4083 is the maximum). The 
1 3 positions are reserved for the trailer. If this entry exceeds the 
maximum length, WSU assumes that the record identification 
character is the last character in the record. 

A blanic in these columns means that a record identification character 
is not specified. 

Not (Columns 25, 32, 39) 

An N specifies that the position in the record does not contain the 
character in column 27, 34, or 41 . A blank specifies that the position 
in the record does contain the character in column 27, 34, or 41 ; If 
any other entry is made, WSU assumes N. 
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C/Z/D (Columns 26, 33, 40) 



This entry indicates which portion of the character in column 27, 34, 
or 41 is used as the record identification character. Many characters 
have either the same zone portion or digit portion. 

\ C The entire character specified in column 27, 34, or 41 is the 

record Identification character. 

Z The zone portion of the character specified in column 27, 

34, or 41 is the record identification character. 

D The digit portion of the character specified in column 27, 34, 

or 41 is the record identification character. 

Other Assume C. 

Refer to the Sort Guide for more about choosing which portion of a 
character to use as the record identification character. 

Character (Columns 27, 34, 41 ) 

This entry specifies an alphabetic character, special character, or digit 
as the record identification character. 

When selecting characters for record identification by a digit or zone 
only, WSU selects all characters having the same zone or digit. When 
reading characters, WSU converts each character into an 8-bit code 
and then tests this 8-bit code to see if the character meets the 
requirements of the record identification character in the 
I -specification. 

As an example, a digit-only entry (D) in column 26 and an A in 
column 27 cause WSU to select all records with a / (slash), A, a, J, j, 
or 1 in the specified column. Using the same letter A but now 
selecting records on a zone-only basis (a Z in column 26), WSU 
selects all records with &■ and letters A through i in the specified 
column. 
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PIBILIR (Column 43) 



This entry indicates whether a numeric field is in pacl<ed decimal or 
binary format. 

Blank Zoned decimal numeric field or alphameric field. 

P Packed decimal numeric field. The maximum length is 8 

bytes. 

B Binary field. The field must have a length of either 2 or 4 

bytes. 

L/R WSU issues a warning message, and does no further 
checking of this specification's entries. 

Other WSU issues a terminal-error message and assumes blank. 

if P or B is specified for a iocal-data-area field or a session -level field, 
WSU issues a terminal -error message and assumes blank. 

Field Location (Columns 44 through 51) 

This entry has two subentries: 

• From (columns 44 through 47) contains the position in which the 
field named in columns 53 through 58 begins. 

• To (columns 48 through 51) contains the position in which the 
field named in columns 53 through 58 ends. 

The From and To entries must be right-adjusted. The From entry must 
be less than or equal to the To entry. If the From or To entry is not 
numeric or is not right-adjusted, WSU assumes 1 for both entries. 

The starting position of the field, From (columns 44 through 47), and 
the ending position of the field, To (columns 48 through 51 ), can be 
any number from 1 through n. For a master file, the maximum entry, 
n, is the length of the record. For the transaction file, fields can 
neither begin nor end in the last 13 bytes of the record (these 13 
bytes are reserved for the trailer). For local -data -area fields and 
session -level fields, ^ is 256. For session -level fields, this entry is 
used by WSU only to determine the field length. 

For a master file, if the To entry exceeds the record length, WSU 
assumes that the To entry is the record length. For the transaction file, 
if the To entry exceeds the record length minus 13, WSU assumes that 
the To entry is the record length minus 13 (13 positions are reserved 
for the trailer). 
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Maximum field lengths are as follows: 

• 256 for an alphameric field. If the field is longer than 256 
characters, WSU assumes 256. 

• 1 5 for a zoned decimal numeric field. If the field is longer than 15 
digits, WSU assumes 1 5. 

• 8 for a packed numeric field. If the field is longer than 8 digits, 
WSU assumes 8. 

• 4 for a binary field. If the field is longer than 4 bytes, WSU 
assumes 2. 

Note: The field location entry (columns 44 through 51 ) is required 
for a field statement on an I -specification. 

Decimal Positions (Column 52) 

This entry indicates the number of positions to the right of the decimal 
point in a numeric field named in columns 53 through 58; it can be 
any number from 0 through 9. Column 52 must contain an entry 
when the field named in columns 53 through 58 is numeric. To define 
a numeric field with no decimal positions, column 52 must be 0. If 
the column is left blank, WSU assumes that the field is an alphameric 
field. If any entry other than 0 through 9 is made, WSU assumes 0. 

Fields that WSU edits or uses in arithmetic operations must be 
numeric. If the number of decimal positions exceeds the field length, 
WSU assumes that the number of decimal positions is the same as the 
field length. WSU cannot process numbers that have more than nine 
decimal places. 

Note: Column 52 must not be blank for a packed or binary field. 
Field Name (Columns 53 through 58) 

This entry specifies the name of a field. Field names can be duplicates 
of other field names in the program's file definition if the length and 
number of decimal positions match. 

A field name can be from 1 to 6 characters long and must be 
left- adjusted. The first character must be alphabetic; the remaining 
characters can be alphameric. Embedded blanks are not allowed. 
Reserved field names cannot be used. (Refer to Chapter 3, Reserved 
Fields and Indicators, for a list of reserved field names.) 

A job field can be defined in columns 53 through 58. Only one copy 
of a job field is generated per program, rather than one copy per each 
display station that uses the program. Job field names must begin 
with & and must be left-adjusted. The second character must be 
alphabetic; the remaining characters (up to 4) must be alphameric. 
Job field names cannot contain blanks. 

Note: The field name is required in columns 53 through 58 for a 
field statement on an I -specification. 
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Chapter 13. J-(Job) Specification 



This chapter summarizes the J -(Job) specification entries. Using 
J -specifications in sample programs is illustrated in Chapter 11, WSU 
Example Programs. 

The J -specification is coded on the top area of the WSU Job, Array, 
and File Specifications sheet. The shaded areas are reserved; entries 
in these areas are ignored by WSU. When entering the WSU 
specifications on the System/36, the J -specification is the first 
specification entered. 
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The following entries on the J -specification are used by WSU: 
Program Name (Columns 7 through 14) 

The program name is a required entry and specifies the name that is to 
be assigned to the WSU program and to the WSU-generated 
procedure. The program name can be from 1 to 8 characters and 
must be left- adjusted. The first character must be alphabetic; the 
remaining characters must be alphameric. Embedded commas, single 
quotation marks, blanks, question marks, slashes (/), hyphens, and 
periods are not allowed. 

Display Format Member Name (Columns 15 through 22) 

The display format member name is a required entry and specifies the 
name of the load member in which generated display formats are to be 
stored. The display format member name can be from 1 to 8 
characters and must be left-adjusted. The first character must 
alphabetic; the remaining characters must be alphameric. Embedded 
commas, single quotation marks, blanks, question marks, slashes (/), 
hyphens, and periods are not allowed. 

The display format member name must not be the same as the 
message load member name in columns 23 through 30. Also, the 
display format member name must not be the same as the WSU 
source program name when the display format member and the source 
program are in the same library. 
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Message Load Member Name (Columns 23 through 30) 



The message load member name is an optional entry and specifies the 
name of your message load member that contains any messages you 
reference by MIC (message identification code) on a D-specification 
or a C-specification. If specified, the message member name can be 
from 1 to 8 characters and must be left -adjusted. The first character 
must be alphabetic; the remaining characters must be alphameric. 
Embedded commas, single quotation marks, blanks, question marks, 
slashes (/), hyphens, and periods are not allowed. 

The message load member name cannot be the same as the display 
format member name (columns 15 through 22). 

If the message load member name is blank, WSU assumes that, if user 
messages are issued in your program, either you or the operator will 
modify the WSU-generated procedure and specify the message 
member to use before calling the program. Refer to Modifying a 
y\/SU -Generated Procedure in Chapter 8 for a description of how to 
change the user procedure. Refer to the System Reference manual for 
an explanation of how to create and compile a message member. 

Library Name (Columns 31 through 38} 

This entry indicates either: 

• The name of the library that will contain the output produced 
during WSU program generation. 

• The name of the library that contains the program's user message 
load member, if columns 23 through 30 of the J -specification 
contain a message load member name. 

The library name can be from 1 to 8 characters and must be 
left -adjusted. The first character must be alphabetic; the remaining 
characters must be alphameric. Embedded commas, single quotation 
marks, blanks, question marks, slashes (/), and hyphens are not 

allowed. 

If columns 31 through 38 are blank, the current library is used for 
generating output, and WSU looks for the message load member in 
the current library. 
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Maximum Number of Display Stations (Columns 39 and 
40) 



This entry specifies the maximum number of display stations that can 
use the program at the same time. 

Any right-adjusted number from 1 through 99 can be entered. If a 
blank or any other character is entered, WSU assumes 1 . 

If your program should allow more than 99 display stations or if for 
other reasons you want to modify the maximum number of display 
stations, you can change the value of the MRTMAX parameter on the 
ATTR OCL statement in the generated WSU procedure. Refer to 
Modifying a WSU-Generated Procedure in Chapter 8 for an 
explanation of how to change the procedure. 

Region Size (Columns 41 and 42) 

This entry specifies the amount of main storage (in additions of 2K 
bytes) in which your program runs. (The region size does not affect 
the minimum size of the program that WSU generates.) 

This entry should be an even number from 8 through 64 and must be 
right-adjusted. If you code an odd number, WSU uses the next higher 
even number as the region size. If a blank or any other entry is 
specified, WSU will assume the minimum region size in which the 
program can run. 

If the region size specified is less than the minimum region size in 
which the program can run, the minimum region size is used. 

The minimum region size in which the program can run is printed at 
the end of the generation printout. Refer to Chapter 9, Testing and 
Debugging WSU Programs, for an explanation of output printed 
during generation. 

You can modify the region size in the WSU -generated procedure 
before calling the procedure. Refer to Modifying a WSU-Generated 
Procedure in Chapter 8 for further information. 
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Date/Edit (Column 43) 



This entry, together with the edit code specified on the 
□-specification, determines the format of the program date or numeric 
output fields. 

M The format of the program date Is month (MM), day (DD), 

year (YY); and a Y edit code in column 25 of a 
□-specification edits these dates as MM/^^/YY. This 
entry, along with a J edit code In column 25 of a 
□-specification, edits a numeric output field as follows: 

1,234.56b (Format of a positive number) 
1,234.56- (Format of a negative number) 
0.00 (Format of a zero balance) 

D The format of the program date Is day (DD), month (MM), 

year (YY); and a Y edit code In column 25 of a 
D -specification edits these dates as DD/MM/YY. 

This entry, along with a J edit code in column 25 of a 
□-specification, edits a numeric output field as follows: 

1.234,56b (Format of a positive number) 
1.234,56- (Format of a negative number) 
0,00 (Format of a zero balance) 

Y The format of the program date Is year (YY), month (MM), 
day (□□); and a Y edit code in column 25 of a 
□-specification edits these dates as YY/MM/^D. 

This entry, along with a J edit code in column 25 of a 
□-specification, edits a numeric output field as follows: 

1.234,56b (Format of a positive number) 
1.234,56- (Format of a negative number) 

Other Assume M. 

Code numeric literals on C-speciflcatlons or D-specifications 
according to the edit code you specify for this entry. 

Refer to Edit Code (Column 25) in Chapter 16 for examples of editing 
fields. 

Ideographic Mode (Column 44) 

Y This WSU program can be run only from an ideographic 
display that is in ideographic mode. A display station is in 
an ideographic session if Y is entered for the ideographic 
(IGC) session prompt on the sign on display. 

N This WSU program cannot be run from a display that is in 

ideographic mode. 

Blank Assume N. 



I 



1 3-4 IBM System/36 Work Station Utility Guide 



Chapter 14. E-(Array) Specifications 



Array specifications used in a WSU program should be written on the 
E-specifications (middle area) of the WSU Job, Array, and File 
Specifications sheet. Columns 7 through 26, 33 through 35, and 43 
are not used by WSU, and an error message is issued if there are 
entries in these columns. Columns 46 through 80 are ignored by 
WSU and no error message Is issued. 

When entering the WSU specifications on the System/36, the 
E-specifications must be entered after the J -specification (Chapter 13) 
and before the T- and M -specifications. 

For more about arrays in WSU, see: 

• Chapter 5 Coding Arrays 

• Chapter 6 Coding Displays 

• Chapter 1 6 S- (Display Control) and D- (Field Definition) 

Specifications. 
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The following entries on the E-specification are used by WSU: 
Array Name (Columns 27 through 32) 

This entry indicates the name of the array used in the program. 

Each array used in a program must be given a unique name that does 
not begin with the letters TAB. (TAB is used for RPG tables and 
should not be used in WSU arrays). The name can be from 1 to 6 
characters long and must begin with an alphabetic character. This 
array name is used throughout the program. The array name should 
be used by itself only to reference the entire array. 

Number of Entries in the Array (Columns 36 through 39) 

Columns 36 through 39 are used to indicate the maximum number of 
elements that can be contained in the array named in columns 27 
through 32. The maximum number of elements that can be used by 
WSU can be any number from 1 through 9999. If this entry is left 
blank, WSU assumes the number to be 5. This entry must be 
right- adjusted. 



E- (Array) Specifications 14-1 



Length of Entry (Columns 40 through 42) 



The length of an alphameric element for WSU arrays can be any 
number from 1 through 256. This entry must be right-adjusted. If 
this entry Is left blank, WSU assumes a length of 5. 

The length of a numeric array element can be any number from 1 
through 15. If this entry is left blank, WSU assumes a length of 15. 
The number entered must be right-adjusted in column 42. For 
numeric arrays in packed decimal format, enter the zoned decimal 
length in columns 40 through 42. For numeric arrays in binary format, 
enter the number of digits required in storage for the binary field. For 
a 2- position binary field, the entry in columns 40 through 42 Is 4; for 
a 4-position binary field, the entry is 9. 

Decimal Positions (Column 44) 

Column 44 is used to indicate the number of decimal positions in a 
numeric array element; 0 through 9 positions are allowed. Column 
44 must always have a value for a numeric array. If the elements in a 
numeric array have no decimal positions, enter a 0. 

If you are using alphameric arrays, column 44 must be left blank. 
Sequence AID (Column 45) 

Use column 45 to describe the sequence, either ascending or 
descending, of the data in an array. WSU arrays are not 
sequence-checked; however, an A or D entry must be specified if a 
high or low LOKUP operation is performed. See LOKUP in Chapter 
18 for more information. 

An A entered for ascending order means that the array entries start 
with the lowest data entry (according to the collating sequence) and 
proceed to the highest. A D entered for descending order means that 
the array entries start with the highest data entry and proceed to the 
lowest. 

if the sequence entry is left blank, the entry is assumed to be an A. 

Refer to the Sort Guide for more about the standard collating 
sequence. 
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Chapter 15. T-(Transaction File) and M-(Master 
File) Specifications 



This chapter summarizes the entries on the transaction file and master 
file specifications. These specifications are coded on the lower area of 
the WSU Job, Array, and File Specifications sheet. When entering the 
WSU specifications on the System/36, the E-specifications (Chapter 
14) must be entered after the J -specifications (Chapter 1 3) and 
before the T- and M -specifications. 

T-Speciflcation 

The transaction file specification is entered on the top line of the 
Transaction/ Master File section of the WSU Job, Array, and File 
Specifications sheet, and must follow the E-specifications (if any) in 
your WSU program. Columns 31 through 48 and 51 through 54 are 
not used for transaction files, and an error message is issued if there 
are entries in these columns. Columns 63 through 80 are reserved; 
entries in these columns are ignored by WSU. 
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The following entries on the T-specificatlon are used by WSU: 

File Name (Columns 7 through 14) 

The file name is a required entry and specifies the name of the 
transaction file. The file name can be from 1 to 8 characters and 
must be left-adjusted. The first character must be alphabetic; the 
remaining characters must be alphameric. Embedded commas, single 
quotation marks, blanks, question marks, slashes (/), hyphens, and 
periods are not allowed. The transaction file name cannot be the 
same as any of the master file names in this program. The transaction 
file name also appears in columns 7 through 14 of the F-specification 
and I -specification for that file. 

Fi/e Definition Location (Columns 15 through 30) 

The file definition location contains two subentrles for the transaction 
file: 

• Library Name (columns 15 through 22) 

• Source Member Name (columns 23 through 30). 



T- (Transaction File) and M-(Master File) Specifications 1 5-1 



File Definition Location (Columns 15 through 30) 



The file definition location contains two subentries for the transaction 
file: 

• Library Name (columns 15 through 22) 

• Source Member Name (columns 23 through 30). 

Library Name (Columns 15 through 22) 

This entry indicates the name of the library that contains the 
F-specification and I -specifications (file definition) for the transaction 
file. 

The library name can be from 1 to 8 characters, and must be 
left-adjusted. The first character must be alphabetic; the remaining 
characters must be alphameric (including periods). Embedded 
commas, single quotation marks, blanks, question marks, slashes (/), 
and hyphens are not allowed. If columns 1 5 through 22 are blank, 
the current library is used. 

Source Member Name (Columns 23 through 30) 

This required entry indicates the name of the source member that 
contains the F-specification and I -specifications (file definition) for 
the transaction file. The file definition that describes the transaction 
file must not be in the same source member that contains the WSU 
program. 

The source member name can be from 1 to 8 characters and must 
be left-adjusted. The first character must be alphabetic; the remaining 
characters must be alphameric. Embedded commas, single quotation 
marks, blanks, question marks, slashes (/), hyphens, and periods are 
not allowed. 
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Not' Found Indicator (Columns 49 and 50) 



!}; An entry of an indicator number from 01 to 89 specifies the indicator 
that is turned on when: 

• WSU cannot determine the record type of the record read from the 
transaction file. 

• WSU has tried to get a record that is beyond the logical end of the 
transaction file chain for that display station. 

You can also code a not-found indicator in columns 54 and 55 of 
C-specifications for the GETNH, GETNR, GETPH, and GETPR 
operations. If you code different not-found indicators on the 
T-specificatlon and C-specification, the indicator on the 
C-specification turns on for a not-found condition. 

This indicator remains on until: 

• You turn it off (with a SETOF operation). 

• WSU turns it off (when the indicator, used as a resulting indicator 
in columns 54 through 59 of the C-specification, reflects a 
not-true condition or when an allowed record is read). 

Header Record Identifying Indicator (Columns 55 and 
56) 

This indicator number can be any number from 01 through 89 but 
must be the same as the record identifying indicator coded on the 
I -specification for the header record in the transaction file. Code this 
indicator if the transaction file consists of header records followed by 
groups of detail records (for example, customer orders in an 
order-entry application). This entry allows operators to use the Page 
Backward Group and Page Forward Group command keys during 
review mode to page from one header record to the next, and allows 
you to code GETNH and GETPH operations. 

If columns 55 and 56 are blank, WSU assumes no grouping by 
header record and detail records. The Page Backward Group 
command key and Page Forward Group command key are not 
allowed. If pressed, either key causes an error message to appear for 
the operator. Also, either the GETPH or GETNH operation causes a 
terminal error to occur. 

Note: Refer to Chapter 10, ATTENTION: OPERATORS (Running a 
WSU Program), for a description of how the Page Backward Group 
and Page Forward Group command keys work. Refer to Chapter 1 8 
for a description of the GETNH and GETPH operations. 
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Number of Records (Columns 57 through 60) 

Use any number from 1 through 9999 to specify the number of 
records that operators can enter in the transaction file. WSU uses the 
number of records to allocate sufficient disk storage for the transaction 
file. The entry must be right-adjusted. 

If the number of records is left blank, WSU allocates disk storage for 
1000 records for the transaction file. 

Notes: 

1 . Disk space is allocated in blocks of 2560 characters. For this 
reason, more space for records may be allocated than you 
requested. 

2. If you need more records than the 9999 that you can specify on 
the T-specification, you can use SEU to modify the 

WSU -generated procedure and increase the number of records up 
to a maximum of 65,535. Refer to Chapter 8, Entering and 
Generating a WSU Program, for information on how to modify the 
procedure. 

Error indicator (Coiumns 61 and 62) 

An entry of an indicator number from 01 through 89 specifies the 
indicator that is turned on when either of the following conditions 
occurs: 

• An output/input error occurs for a transaction file operation 
(GETNH, GETNR, GETPH, GETPR, or PUT) 

• A record- not-found condition occurs for the transaction file and 
an indicator has not been coded for Not- Found Indicator in 
columns 49 and 50 of the T-specification. 

A code for the error that occurred is placed in *ERROR, a WSU 
reserved field. (Refer to Chapter 3 for a description of *ERROR and 
the possible error codes). If an error does not occur, this indicator is 
not set on. 

If these columns are left blank, WSU assumes that no error indicator 
is specified for the transaction file. 

If any other entry is made, WSU issues a warning message during 
program generation and assumes blank. 
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M-SPECIFICATION 

The master file specifications are coded on the lines following the 
T-specification on the WSU Job, Array, and File Specifications sheet. 
When entering the WSU specifications on the System/36, the 
M -specification must be entered after the T-specification and before 
the S-specification (Chapter 16). Columns 65 through 80 are 
reserved; entries in these areas are ignored. Columns 51 through 60 
are not used by WSU; an error message will be issued if there are 
entries in these columns. 
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WSU uses the following entries on the M -specification: 
File Name (Columns 7 through 14) 

This entry is the name of a master file, a group of session-level fields, 
or a local data area. 

The file name can be from 1 to 8 characters and must be 
left- adjusted. The first character must be alphabetic; the remaining 
characters must be alphameric. Embedded commas, single quotation 
marks, blanks, question marks, slashes (/), hyphens, and periods are 
not allowed. 

The master file name cannot be the same as the transaction file name 
or another master file in this program. The master file name also 
appears in columns 7 through 14 of the F-specification and 
I -specification for that file. 

The name of session -level fields or the name of a local data area also 
is specified in columns 7 through 14 of an I -specification in the 
program's file definition. 
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File Definition Location (Columns 15 through 30) 



The file definition iocation for the master file contains two subentries: 

• Library Name (columns 15 through 23) 

• Source Member Name (columns 24 through 30). 

Library Name (Columns 15 through 22) 

This entry Indicates the name of the library that contains the 
F-specification and I -specifications (file definition) for the master file. 

The iibrary name can be from 1 to 8 characters and must be 
left-adjusted. The first character must be alphabetic; the remaining 
characters must be alphameric (including periods). Embedded 
commas, single quotation marks, blanks, question marks, slashes (/), 
and hyphens are not allowed. If columns 1 5 through 22 are blank, 
the current library is assumed. 

Source Member Name (Columns 23 through 30) 

This entry indicates the name of the file definition source member that 
contains: 

• F- and I -specifications that describe the master file named in 
columns 7 through 14. 

• I -specifications that describe session -level fields. 

• I -specifications that describe local-data-area fields. 

The file definition must not be in the same source member as the WSU 
program. 

The source member name can be from 1 to 8 characters and must 
be left-adjusted. The first character must be alphabetic; the remaining 
characters must be alphameric. Embedded commas, single quotation 
marks, blanks, question marks, slashes (/), hyphens, and periods are 
not allowed. 
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GET Field Names (Columns 31 through 48) 



For GET operations to a master file, WSU forms a single field by 
combining the GET fields (in the order coded on the M -specification) 
and then uses the newly formed field to get records in the master file. 

These entries specify from one to three fields that, when placed 
end-to-end, contain a value that corresponds to the key field of the 
indexed master file or the relative record number of a direct master file. 
An M -specification requires at least one GET field name in columns 
31 through 48. Each name must be left-adjusted. The GET fields 
must have been defined on I -specifications or C-specifications in the 
program. 

For indexed files, the combined length of the GET fields must be the 
same as the length of the key field in the master file. 

Direct files and files with packed keys can have only one GET field. 
The GET field name for direct files must be 1 to 6 characters in length 
and must be numeric. 

Not-Found Indicator (Columns 49 and 50) 

An indicator number entry from 01 through 89 specifies the indicator 
that is turned on when: 

• WSU cannot determine the record type of the record read from the 
master file. 

• There is no record that has the specified key. 

You can also code a not-found indicator in columns 54 and 55 of 
C-specifications for a GET operation to a master file. If you code 
different not-found indicators for the same file on the M -specification 
and C-specification, the indicator on the C-specification turns on for a 
not-found condition. 

This indicator remains on until: 

• You turn it off (with a SETOF operation) 

• WSU turns it off (when the indicator, used as a resulting indicator 
in columns 54 through 59 of the C-specification, reflects a 
not-true condition or when an allowed record is read). 

Error Indicator (Columns 61 and 62) 

An indicator number entry from 01 through 89 specifies the indicator 
that turns on when either of the following conditions occurs: 

• An output/input error occurs for a master file operation (GET, 
PUT, or PUTN) 

• A record- not-found condition occurs for the master file and an 
indicator has not been coded in columns 49 and 50 (Not- Found 
Indicator) of the M -specification. 

A code for the error that occurred is placed in "ERROR, a WSU 
reserved field. (Refer to Chapter 13 for a description oif *ERROR and 
the possible error codes.) If an error does not occur, this indicator is 
not set on. 
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If the error indicator is left blank, WSU assumes that no error 
indicator is specified for the master file. 

If any other entry is made, WSU issues a warning message during 
program generation and assumes blank. 

File Definition Type (Column 63) 

These columns describe the fields, master file, or local data area 
named in columns 7 through 14 of the M -specification. 

If this entry is left blank, WSU assumes the use of a master file. 
Columns 7 through 14 of this M -specification name the master file 
and columns 23 through 30 name the source member that contain the 
file definition F-specification and I -specifications that describe the 

master file. 

An entry of U specifies the use of the local data area. Columns 7 
through 14 of this M -specification name the local data area, and 
columns 23 through 30 name the source member that contains the 
I -specifications that describe the local data area. 

An entry of F specifies the use of fields by the WSU program rather 
than use of a master file or of the local data area. Columns 7 through 
14 of this M -specification name the group of fields, and columns 23 
through 30 name the source member that contains the I -specifications 
that describe the fields. Field Level (column 64) specifies whether the 
fields named in file definition type are mode-level or session-level 
fields. 

If any other entry is made, WSU issues a terminal-error message and 
does not generate a program because of the error. 

Figure 15-1 shows possible combinations of entries in columns 63 
and 64. 



Column 63 


Column 64 


Blank 


S 


Blank 


Master file fields. These 
fields are mode- level. 


Invalid combination. WSU 
issues a terminal error 
message. 


U 


Local -data -area fields. 
These fields are 
mode-level. 


Local-data-area fields. 
These fields are 
session-level. 


F 


Invalid combination. WSU 
issues a terminal error 
message. 


Session-level fields. 



Figure 15-1. Possible Combinations of File Definition Types and Field Levels 
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Field Level (Column 64) 

This entry indicates whether the fields named in columns 7 through 14 
and identified in column 63 are session -level or mode- level. 

An entry of S in column 64 specifies one of the following: 

• If the file definition type in column 63 is U, the local-data-area 
fields named by this M -specification are session- level. 

• If the file definition type in column 63 is F, the group of fields 
named by this M -specification are session -level. 

• If the file definition type in column 63 is blank, WSU issues a 
terminal-error message and does not generate a program because 
of the error. 

A blank in column 64 specifies one of the following: 

• If the file definition type in column 63 is U, the local-data-area 
fields named by this M -specification are mode-level. 

• If the file definition type in column 63 is F, WSU issues a 
terminal-error message and does not generate a program because 
of the error. 

• If the file definition type in column 63 is blank, the fields in the 
master file named by this M -specification are mode- level fields. 

If any other entry is made, WSU issues a terminal-error message and 
does not generate a program because of the error. 

Note: Figure 15-1 shows possible combinations of entries in 
columns 63 and 64. 



T- (Transaction File) and M-( Master File) Specifications 



15-9 



I 



15-10 IBM System/36 Work Station Utility Guide 



Chapter 16. S-(Display Control) and D-(Field 
Definition) Specifications 



This chapter summarizes the entries for WSU on the System 1 36 
Display Format Specifications sheet. A description and examples of 
these entries can be found in Chapter 6, Coding Displays. Sample 
programs using S- and D-specifications can be found in Chapter 11, 
WSU Example Programs. 

S-Specification 

S- (display control) specifications are coded on the top section of the 
sheet. When entering the WSU specifications for your program, you 
must enter the S-specification after the M -specifications (Chapter 15) 
and before the D-specifications. Entries in columns 31 through 36 
will cause WSU to issue a warning message and continue as though 
those columns were blank. Columns 39, 40, 45, and 60 through 63 
are reserved and entries in these columns are ignored. 
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Entries checked on the S-specification by WSU are: 
Display Format Name (Columns 7 through 14) 

This entry is the name of the display format that WSU creates from 
these S- and D-specifications. The display format name can be 1 to 
8 characters and must be left -adjusted. The first character must be 
alphabetic; the remaining characters must be alphameric. WSU does 
not allow duplicate format names within one source program. 

The format name, a required entry, is the name you can specify on a 
PUTS operation to cause the display to appear. Refer to Chapter 7, 
Coding Processing, for an explanation of PUTS. 
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Format ID (Columns 15 and 16) 



This 2-character field allows you to select the desired display from the 
WSU display and to set indicators that will allow this display to be 
shown only under certain conditions that you specify. 

This entry can be two alphameric characters, other than IJ, IW, 
EW, EJ, or ES, that are the format ID (for example, A1 , 01 , or BB). 
Operators can select this display any time that WSU is ready for 
operator input. Refer to Chapter 1 0, >4 7T£/\/7"/0/V; OPERATORS 
(Running a WSU Program), for an explanation of how to select 
displays by ID. Two or more displays in one WSU program cannot 
have the same ID. 

If the format ID entry is left blank, operators cannot select this display 
by ID. 

Format ID must be blank if Reset Keyboard (columns 23 and 24) has 
an entry of N. 

The processing level indicators (IJ, IW, EW, EJ) are optional, and you 
can specify only one per program. Displays assigned one of these 
indicators cannot be selected from the WSU display. If you want to 
use displays only for specific processing functions, specify: 

IJ Display occurs only when the first operator calls a 
WSU-generated procedure. 

IW Display occurs once for each operator (including the first 

operator), when that operator calls a WSU-generated procedure. 

EW Display occurs after each operator selects the 

end-of-work-session option on the WSU display or when the 
program f^as set on the EW indicator and completed processing 
ifor the display. 

EJ Display occurs only when the last operator selects the 

end-of-work-session option on the WSU display or when the 
program has set on the EJ indicator and completed processing 
for the display. 



1. Start (column 41), End (42), Repeat (44), Priority (46), Review 
Mode Identifying Indicators (48 through 52), and Insert Mode 
Record Identifying Indicators (54 through 59) must be blank if 
you code I J, IW, EW, or EJ for format ID. 

2. ES cannot be a format ID; however, you can code a PUTS 
operation in ES processing to show a display. Refer to Chapter 7, 
Coding Processing, for an explanation of the PUTS operation. 



Notes: 
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Start Line Number (Co/umns 17 and 18) 

The number of the line at which you want this display to begin can be 
any number from 1 through 24 or V. Any data on the display that is 
above the starting line can neither be modified by the operator nor 
transmitted to your program. Single-digit entries (1 through 9) must 
be right-adjusted. 

A V means that you will be using a variable starting line number. The 
contents of the reserved field *SLNO at the time the display is shown 
become the starting line number. (Refer to Chapter 3, Reserved Fields 
and Indicators, for a description of "SLNO). This entry must be 
left- adjusted. 

For a MSG operation or I MSG operation, the contents of *SLNO at 
the time the display is first shown becomes the starting line number. 

If any other entry is made, / is the assumed starting line number. 

Use the following equation to determine the actual line number on 
which a field is displayed. 

Actual Start line number Line number specified 

line = specified in + columns 19 and 20 of -1 

number columns 17 and 18 field definition 

specification 

For example, if 6 is specified as the start line number and 5 is 
specified as the line number in the field definition (columns 19 and 20 
of the D-specification), the field is actually displayed on line 10. 

Note: WSU uses the bottom line (line 24) of the display for 
displaying messages. 

Number of Lines to Clear (Columns 19 and 20) 

The number of lines to clear (including and following the starting line 
specified in columns 17 and 18) before this display appears can be 
any number from 0 through 24. For example, if the start line number 
is 6, and if 12 lines are cleared, lines 6 through 17 are cleared before 
the format is displayed. Single-digit entries (0 through 9) must be 
right-adjusted. 

If column 17 contains V (variable starting line number), the maximum 
number of lines that can be cleared is 24. 

If blank or 24 is entered, the entire display is cleared. 

If any number greater than 24 is specified, a terminal error occurs. 
If an invalid character is specified, the entire display is cleared. 
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Lowercase (Column 21) 



If a Y is entered, all alphabetic characters in all fields are entered in 
lowercase unless the operator presses the Shift key. 

If a N is entered all characters in all fields are entered in uppercase. 

If any other or blank entry is made, the entry is assumed to be N. 

The D -specification entry for field lowercase always takes priority over 

the S-specification for field lowercase (see column 51 of the 

D -specification in this chapter). However, you can modify this for 

individual fields on the 0-specification. This means that whatever is 

specified in the S-specification for the entire display, you can modify 

that definition for a particular field in the display on the 

□-specification. 

Lowercase must be blank if Reset Keyboard (columns 23 and 24) 
contains an entry of N. 

Return Input (Column 22) 

An entry of Y returns all input fields to the program (Including input 
fields in which data has not been typed) when the operator presses 
the Enter key, an enabled user command key, or a WSU command 
key. 

(An exception to this rule occurs when all input fields are mandatory 
entry and the operator presses one of the above keys before typing 
data into any of the input fields. In this case, no input fields are 
returned to the program, and the current field values are retained in 
the WSU program. The fields are not cleared.) 

An entry of N returns either no Input fields or all input fields. 

If the operator has not typed data into any of the input fields before 
pressing the Enter key, an enabled user command key, or a WSU 
command key, none of the input fields are returned to the program, 
and the current field values are retained in the WSU program. The 
fields are not cleared. In this situation, the operator bypasses 
mandatory-entry fields. 

J If the operator has typed data Into one or more of the input fields 

before he presses the Enter key, a user command key, or a WSU 
command key, all input fields are returned to the program whether 
data was entered into them or not. 

If a blank or any other character is entered, the entry is assumed to 
be N. 

Return Input must be blank if Reset Keyboard (columns 23 and 24) 
contains an entry of N. 

Note: If you specify Y for the Return Input entry, the display should 
have input or output/input fields. 

. i 
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Reset Keyboard (Columns 23 and 24) 



An entry of Y allows processing for this display. If you do not want to 
allow processing for the display, enter an N. Displays that have a 
reset keyboard entry of N must not be sequenced, and their S- and 
D-specifications must follow the S- and D-specifications for all 
sequenced displays. 

Refer to the PUTS operation in Chapter 7, Coding Processing, for an 
example of a display that does not allow processing. 

If a blank or any other character is entered, Y is assumed and 
processing is allowed for this display. 

Note: The reset keyboard entry must be Y if: 

• Columns 15 and 16, 21 and 22, or 41 through 59 are not blank 



• The display is in a sequence of displays 

• The display has associated processing 

• The display has input or output/input fields. 



Sound Alarm (Columns 25 and 26) 

An entry of Y causes the alarm to sound when this display appears. If 
you enter N, the alarm does not sound when this display appears. 

If you would like the alarm to sound only under certain conditions, 
enter an indicator number 01 through 89 for the specified indicator. 

If a blank or any other character or number is entered, an entry of 
N is assumed. 
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Enable Function Keys (Column 27) 

You can allow the operator to use the function keys on the keyboard 
to control your program's operations. You use column 27 to specify 
whether any of the function keys are enabled (the operator can use 
them) or disabled (the operator cannot use them). The specified 
function keys to be enabled or disabled are identified by number in 
Key Mask (columns 64 through 79). The function keys are identified 
by number: 



Function Key 


Key Mask Entry 


Roll Up ( + ) 
Roll Down ( + ) 


2 
3 



The allowed entries to enable the function keys. are: 

Y The function keys identified in the key mask are enabled 

(allowed). If the key mask contains no entries, all function 
keys are disabled. 

N disable the function keys specified in the key mask. If the 

key mask contains no entries, the Roll + (Roll Up) and Roll 
+ (Roll Down) keys are enabled. 

R The function key mask that is currently active for the 

display station is used when this format is displayed. 

Blank All function keys are disabled except Roll + (Roll Up) and 
Roll + (Roll Down). In this case, the key mask must not 
contain any entries. 

Any other entry causes WSU to issue a warning message and assume 
the entry was blank. 

When an operator presses an enabled function key, the WSU program 
either does the function or sets on the indicator that corresponds to 
the command key. When an operator presses a disabled function key, 
the system issues a message to the operator that indicates the key is 
not allowed at that time. No function is done for the disabled key, 
and the program receives no notification that the key was pressed. 



I 
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Enable Command Keys (Column 28) 



You can allow the operator to use the command keys on the keyboard 
to control your program's operations. You use column 28 to specify 
whether any of the command keys are enabled (the operator can use 
them) or disabled (the operator cannot use them). The specified 
command keys to be enabled or disabled are identified by a character 
in Key Mask (columns 64 through 79). The command keys are 
identified by alphabetic characters: 



Command Key 


Key Mask Entry 


1 though 14 
1 5 through 24 


A through N 
P through Y 



The allowed entries td enable the command keys are: 

Y The command keys identified in the key mask are enabled. 

If the key mask contains no alphabetic characters, all 
command keys are disabled. 

N The command keys identified in the key mask are disabled. 

If the key mask entry contains no alphabetic characters, all 
command keys are enabled. If the operator presses a 
disabled command key, an error message is displayed. The 
operator can then press the Error Reset key, followed by 
the correct command key. 

R The command key mask that is currently active for the 

display station is used when this format is displayed. 

Blank All command keys are enabled, in this case, the key mask 
must not contain any alphabetic characters. 
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If any other entry is made, WSU issues a warning message and 
assumes the entry was blank. 

When an operator presses an enabled command key, the WSU 
program either does the function (for example, shows the WSU 
display) or sets on the indicator that corresponds to the command key. 
When an operator presses a disabled command key, the system issues 
a message to the operator that indicates the key is not allowed at that 
time. No function is done for the disabled key, and the program 
receives no notification that the key was pressed. 

Blink Cursor (Columns 29 and 30) 

If you want the cursor to blink when this display appears, enter a Y. 

If you do not want the cursor to blink when this display appears, enter 
an N. 

If you want the cursor to blink only under certain conditions, you can 
specify an indicator number from 01 through 89. The cursor then 
blinks when this display appears only if the specified indicator is on. 
if a blank or any other entry is made, WSU assumes the entry was 
an N. 
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Null Fill (Columns 37 and 38) 

If you want blanks (hex 40s) to be changed to nulls (hex 00s) on this 
display, enter a Y or an indicator number from 01 through 89. 

if a N is entered, or if the entry is blank, null fill does not occur for 
this display. 

Enter Mode Sequence (Columns 41 through 44) 

This sequence consists of four entries: 

• Start 

• End 

• Entry Required 

• Repeat. 

Note: When in review or insert mode, WSU ignores these entries. 

Start (Column 41) 

If this display is the first in a primary sequence or secondary sequence 
of displays, enter a Y. 

If this display is not the first in a primary sequence or secondary 
sequence of displays, enter an N. 

If a blank or any other entry is made, WSU assumes Y if this display 

is the first display (other than IJ or IW) in the program or assumes N 
if this display is not the first display (other than IJ) in the program. 

Notes: 

1 . This column must be blank if columns 1 5 and 1 6 contain IJ, IW, 
EW, or EJ, or if Reset Keyboard (columns 23 and 24) is N. 

2. A start display can also be an end display. 

3. If a primary sequence start is not specified, WSU issues a 
terminal-error message. 

End (Column 42) 

An entry of Y specifies that this display is the last in a primary 
sequence or secondary sequence of displays. 

An entry of N specifies that this display is not the last in a primary 
sequence or secondary sequence of displays. 

If blank or any other entry is made, WSU assumes an entry of N. 

Notes: 

1. This column must be blank if columns 15 and 16 contain IJ, IW, 
EW, or EJ, or if Reset Keyboard (columns 23 and 24) is N. 

2. An end display can also be a start display. 
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Entry Required (Column 43) 



An entry of Y means that, during an enter mode display sequence, 
operators must press the Enter key or an enabled user command key 
for this display. Operators cannot use the Bypass Display command 
key (Cmd 2) nor can they select another display by ID from the WSU 
display to skip this display without causing a sequence error. 

If an N is entered, operators can use the Bypass Display command key 
or select another display by ID from the WSU display to skip this 
display. 

If any other entry is made, WSU assumes an entry of N. 

Repeat (Column 44) 

An entry of Y causes this display to repeat during an enter mode 
display sequence and to accept input until: 

• An operator presses the Bypass Display command key (Cmd 2). 

• An operator presses the WSU Display command key (Cmd 1 ) and 
selects a display by typing a format ID. 

• A PUTS operation causes another display to appear. 

You can repeat any display: a display in a primary sequence, a display 
in a secondary sequence, or a nonsequenced display. 

An entry of N causes this display to not repeat. 

If blank or any other entry is made, WSU assumes an entry of N. 

Note: This entry must be blank if columns 15 and 16 contain IJ, IW, 
EW, or EJ. 

Priority (Column 46) 

If you want to specify the relative expected frequency of this display, 
you can enter a number from 0 through 3. 3 indicates a display that 
you expect to use most frequently; 2 or 1 indicates a display that you 
expect to use less frequently, and 0 indicates a display that you expect 
to use least frequently. 

If any other entry is made, WSU assumes an entry of 0. 

Note: This entry must be blank if columns 1 5 and 1 6 contain IJ, IW, 
EW, or EJ. 
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Preprocess (Column 47) 



An entry of Y causes WSU to begin performing the C-specifications 
for this display before showing the display. A preprocessed display 
must have associated C-specifications. 

If an N, blank, or any other entry is made, preprocessing does not 
occur for this display. Refer to the explanation of the PUTS operation 
in Chapter 7, Coding Processing, for examples of a preprocessed 
display. 

Review Mode Record Identifying Indicators 

(Columns 48 through 53) 

If you specify the type of record in the transaction file that the 
operators can review with this display, you can enter any indicator 
number from 01 through 89. This entry should match the record 
identifying indicator on the I -specification for the type of record to 
review. 

You can specify as many as three types of records that can be 
reviewed with this display. 

Refer to Chapter 2, IHow WSU Worlds, for an explanation of review 
mode. 

If columns 48 through 53 are blank, operators cannot select this 
display in review mode. This display can, however, be shown in 
review mode by means of a PUTS operation. 

Note: This entry must be blank if columns 1 5 and 1 6 contain IJ, IW, 
EW, or EJ. 

Insert Mode Record Identifying Indicators 

(Columns 54 through 59) 

To specify the type of record in the transaction file after which 
operators can use this display to insert a record, you can enter an 
indicator number from 01 through 89. This entry should match the 
record identifying indicator entry on the I -specification for that type of 
record. 

These insert mode indicators must also be used as review mode 
indicators (columns 48 through 53) in the program. 

You can specify as many as three types of records on one 
S-specification. 

if columns 54 through 59 are blank, operators cannot select this 
display in insert mode. This display can, however, be shown in insert 
mode by means of a PUTS operation. 

Refer to Chapter 2, How WSU Worlds, for an explanation of insert 
mode. 

Note: This entry must be blank if columns 15 and 16 contain IJ, IW, 
EW, or EJ. 
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Key Mask (Columns 64 through 79) 



The key mask represents the command and function keys that are 
enabled or disabled when this display appears. The mask is a string of 
1 to 16 letters and numbers from the following list: 





Cnmmanri/PiinAtinn 




Mask ID 


Key Symbol 


Description 


A 

A 


Lmci 1 


WSU Display command key 


D 
D 


Cmci Z 


Bypass Display command key 




uma o 


Resume Entry Mode command key 


U 


cmci 4 


Insert Mode command key 


b 


Lmci b 


Page Backward Group command key 


F 


Cmd 6 


Page Forward Group command key 


u 


umd / 


User command key 7 (Indicator KG) 


LI 

M 


umd o 


User command key 8 (Indicator KH) 


1 

1 


umd 9 


User command key 9 (Indicator Kl) 


1 

J 


Lmd lu 


User command key 10 (Indicator KJ) 


K 


Lmd 1 1 


User command key 1 1 (Indicator KK) 


1 


umd \£. 


User command key 12 (Indicator KL) 


Ivl 


Cmd \o 


Accept- Sequence- Error command key 


M 
IM 


umd 14 


Delete Mode command key 


D 

r 


Cmd To 


Resume Review Mode command key 


r\ 
\1 


umd lb 


User command key 16 (Indicator KQ) 


n 


Cmd 1 / 


User command key 17 (Indicator KR) 


s 


Cmd 18 


User command key 18 (Indicator KS) 


T 


Cmd 19 


User command key 19 (Indicator KT) 


U 


Cmd 20 


User command key 20 (Indicator KU) 


V 


Cmd 21 


User command key 21 (Indicator KV) 


w 


Cmd 22 


User command key 22 (Indicator KW) 


X 


Cmd 23 


User command key 23 (Indicator KX) 


Y 


Cmd 24 


User command key 24 (Indicator KY) 


2 


Roll f 


Page Forward Record function key 


3 


Roll \ 


Page Backward Record function key 



In this list, A through F and M through P correspond to WSU 
command keys; G through L and Q through Y correspond to user 
command keys (Indicators KG through KL and KQ through KY); and 2 
and 3 correspond to the Page Forward Record and Page Backward 
Record function keys. 

The mask must be left-adjusted and must not have embedded blanks. 
The letters and numbers in the mask can be in any order; however, 
duplicate entries cause a warning message to be printed. 

If the mask contains embedded blanks, a warning message is issued, 
and WSU ignores all entries that follow the first blank. 

Refer to Chapter ^0, ATTENTION: OPERATORS (Running a WSU 
Program), for an illustration of the command/function keys. 
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The entry for Enable Function Keys in column 27 specifies whether 
the function keys in the mask are enabled or disabled when this 
display appears. The Enable Command Keys entry in column 28 
specifies whether the command keys in the mask are enabled or 
disabled when this display appears. 

If you code a digit in the mask, column 27 must not be blank or R. If 
you code a letter in the mask, column 28 must not be blank or R. If 
columns 27 and 28 are both blank, columns 64 through 79 are 
ignored. 

If any WSU command keys (A through F and M through P) or the 
Roll f (Roil Up) and Roll -f (Roll Down) function keys are disabled or 
not enabled, WSU issues a warning message. If any of these keys are 
disabled, problems may occur during program operation. For example, 
if you disable the WSU Display command key, an operator cannot use 
that key to display the WSU display. Therefore, he cannot end his 
session, and the WSU program has to end the session by setting on 
the EW or EJ indicator. 
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D-Specification 



A summary of the entries allowed on the D- (field definition) 
specification is covered in the remainder of this chapter. The 
D -specifications are coded on the lower section of the Display Format 
specification sheet. Columns 50 and 52 through 55 are reserved; 
entries in these columns are Ignored by WSU. If any entry is made in 
column 34, WSU issues a warning message and continues as though 
it was blank. 

When entering the WSU specifications on the System/36, the 
□-specification must be entered after the S -specification and before 
the C-specifications (Chapter 17). 



Field Definition Specification 



Sequence 
Number 

1 2 3 4 5 


1 o> Specification Type 1 


WSU 

Field Name 


WSU Arrays 


Starting 
Location 


s 

i 

S 

23 24 


IK Edit Code (WSU Only) | 


1^ Input Allowed I 


K 
> 

1 

27 


\U Mandatory Fill 1 


IK Mandatory Entry | 


lo Self-Check i 


It: Adjust/Fill 1 


1 " Position Cursor 


1 
1 

UI 


lui Controlled Field Exit 1 


Auto Record Advance i 


Protect Field j 


1 ^ High Intensity 


1 Blink Field 


> 

a 

■6 

c 

i 

43 44 


^ Reverse Image 


^ Underline 


1^ Column Separators 1 


il 
\ * 

'. o 
« 51 


Raserved 

»:<»S4.^ 


1 S Constant Type I 


Constant Data 


1 Continuation | 


Elements per 
Row or Column 


june Skip Factor 


■ Horizontal Positioiis 
{Space Factor 


to Line Number 


Horizontal Position 


Field Name 
7 8 9 10 11 12 13 14 1 


Field 
Lengtli 

S 16 17 18 


1 2 3 4 b 6 7 8 9 10111213141616171819 20 2122 22 


67 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 76 76 77 78 79 


80 












D 
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WSU uses the following entries on the D-specification: 
WSU Fieid Name (Columns 7 through 12) 

The WSU field name is the name of an input field, output field, or 
output/input field, or an array name. The field name can be 1 to 6 
characters and must be left-adjusted. The first character must be 
alphabetic or &■; the remaining characters must be alphameric. 
Embedded blanks are not allowed. This entry can be a field name 
from an I -specification; a result field name on a C-specification; an 
array name; or UDATE, UYEAR, UDAY, or UMONTH. 

If this column is blank, this D-specification statement defines only 
constant data. 

Notes: 

1 . If the field name begins with an &-, the character following the & 
must be alphabetic. 

2. You can code the same field name on more than one 
D-specification line; however, you cannot overlap data on the 
display. Refer to the description of Horizontal Position (columns 
21 and 22) in this chapter for a description of overlapping data. 
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3. 



A field name that begins with * should not be coded on the 
D-specification because WSU considers a line beginning with an * 
to be a comment. 



WSU Arrays (Columns 13 through 18) 



WSU execution-time arrays use columns 13 through 18 of the 
D-specification. If you are not defining arrays, leave columns 13 
through 18 blank. Refer to Chapter 5, Coding Arrays, and Chapter 14; 
E-(Array Specifications), for more information about using 
execution-time arrays in WSU programs. 



Array Elements per Row or Column (Columns 13 and 14) 



Any number of array elements from 01 through. 99 per row or 
column can be entered. 



An entry of R in position 1 5 references the rows of the array. An entry 
of C references the columns of the array. 

The R or C coded with ah array name references the first element of 
the array and specifies that the D-specifications are to be generated to 
format rows or columns on the display for output to and/or input from 
individual array elements. 



Any number from 0 through 99 can be entered to specify the number 
of rows between elements of the array. 



Horizontal Positions Space Factor (Columns 17 and 18) 



Any number from 00 through 99 can be entered to specify the 
number of columns between elements of the array. 



Fill Direction 



(Column 15) 



Line Number 



Skip Factor (Column 16) 
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Starting Location (Columns 79 titroug/i 22) 



The starting location for a WSU field consists of: 

• A line number (columns 19 and 20) 

• A horizontal position (columns 21 and 22). 

Line Number (Columns 19 and 20) 

The line number can be a number from 1 through 25, and is the line 
on which the data begins on the display. WSU calculates the actual 
line number for the data by adding the display's starting line number 
to this line number minus one. 

The maximum entry is 25 minus the display's starting line number. 
During a program, when a display that has a variable starting line 
number is shown, the sum of the starting line number and the number 
of the last line used for that display cannot exceed 24. A terminal 
error appears if this situation occurs. 

WSU issues a warning message during program generation if data is 
coded on an uncleared portion of the display. 

If the line number is 1, the horizontal position cannot be 1. 

A line number is a required entry. Single-digit entries must be 
right-adjusted. 

Horizontal Position (Columns 21 and 22) 

The position of the data on a line can be any number from 1 through 
80. If this D -specification statement specifies a prompt and a field, 
this entry specifies the beginning position of the prompt. One blank is 
inserted to separate the last position of the prompt and the first 
position of the field. Single-digit entries must be right-adjusted. 

Notes: 

1 . You cannot use position 01 of line 01. 

2. Data cannot overlap (occupy the same position) on the display. 
You must not code the same line number and horizontal position 
for two or more fields or prompts, or a line number and horizontal 
position that is within another field or prompt. 

3. At least one blank must separate fields or a field and prompt. 
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Output Data (Columns 23 and 24) 



A Y specifies that data from the field named in Field Name (columns 7 
through 12) is to be displayed. 

An N specifies that the data from the field named in columns 7 
through 12 is not to be displayed. 

An entry of an indicator number from 01 through 89 causes the data 
from the field named in columns 7 through 12 to be displayed only if 
the specified indicator is on. If the D-specification indicates a prompt 
in positions 57 through 79 for the field named in positions 7 through 
12, the prompt is displayed whether the indicator is on or off. 

If a blank or an other entry is made, WSU assumes an entry of N. 

Note: This entry applies only to a field named in columns 7 through 
12. Therefore, this entry should be blank or N if column 56 is M, C, or 
D. 

Edit Code (Column 25) 

An entry of J inserts commas, decimal points, and a minus sign (for a 
negative field) in the numeric output field. 

An entry of Y omits leading zeros of a numeric output field and inserts 
slashes (/) for each pair of digits from left to right (if column 43 of the 
J -specification is M or D) or from right to left (if column 43 of the 
J -specification is Y). Refer to Date/ Edit (Column 43) in Chapter 13. 

This entry applies to numeric output fields that are 3 to 15 digits long. 

If you specify a Z, leading zeros from the numeric output field are 
suppressed. An all-zero field is displayed with all blanks. 

If a blank or any other entry is made, editing of the output field is 
not allowed. This entry must be blank if the WSU Field Name 
(columns 7 through 12) is blank. 

Note: Edit codes are allowed only for numeric output fields. An 
edited output field cannot be an input field. Input Allowed (column 
26) must not be Y. 

Input Allowed (Column 26) 

An entry of Y specifies that the field named in columns 7 through 1 2 
is an input field. 

An entry of N specifies that this D-specification statement does not 
describe an input field. Columns 27 through 38 must be blank. 

If a blank or any other entry is made, WSU assumes an entry of N. 
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Data Type (Column 27) 



An entry in column 27 can specify the following data types: 

A Only alphabetic data can be entered in the input field. 

B Only alphameric data can be entered in the input field. 

D Input data typed in this field can contain only the digits 0 
through 9 and overscored asterisks (7). 

E This field can contain alphameric and Katakana characters 
(A/N/K), or ideographic characters (IGC), but not both. The 
field is initially set to binary zeros and the display station is set 
for alphameric data entry. When the cursor is in the first position 
of the field it blinks. The blinking indicates that the operator can 
change modes and enter ideographic data. 

F This field can contain alphameric, Katakana, or ideographic data, 
but only one at a time. The field is initially filled with 
ideographic nulls (a shift-out character, blanks, and a shift-in 
character), and the display station is set for ideographic entry. 

K This field can contain Katakana characters. 

N Numbers 0 through 9, plus and minus signs, commas, periods, 
and blanks can be entered in this input field. 

O Operators can enter a combination of alphameric, Katakana, and 
ideographic data. The field is initially set to alphameric and filled 
with binary zeros. 

S Numbers 0 through 9 can be entered in this input field. 

A field exit key must be pressed after entering the field, 
regardless of the entry for Controlled Field Exit (column 35). 

Pressing the Field + or Field Exit key enters a field with a plus 
sign in the zone portion of the rightmost digit; pressing the 
Field- key enters a field with a minus sign in the zone portion of 
the rightmost digit. The sign, therefore, is not entered and does 
not occupy an extra position in the field. When a field exit key is 
pressed, the data is right-adjusted, and unused positions appear 
as blanks and transmit as zeros regardless of the entry for 
Adjust/Fill (column 31). 
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If you display a negative signed numeric field with a J edit code 
(column 25), a minus sign occupies a separate position on the 
display at the end of the number (for example 123-). 

If you display this field without a J edit code, the rightmost digit 
contains the sign. (For example, 5- is displayed as the character 
N. The zone portion contains the minus sign and the digit 
contains 5.) 

If you display a positive signed numeric field with a J edit code, 
a blank follows the rightmost digit. If you display this field 
without a J edit code, the last digit is not followed by a blank. 

X The field can contain only ideographic data. 

Code X data type fields as input fields. On the D-specification, 
enter an N in column 23, or leave columns 23 or 24 blank. 

If a blank or any other entry is made, WSU assumes B for an 
alphameric field and S for a numeric field (you must allow an extra 
position on the display for a sign). 

For data types E, F, K, and 0, you must have coded a Y in column 44 
of the J specification. 

This data -type entry overrides the data type specified on the 
C-specification or the I -specification, if the data types are not the 
same. If you specify constant data in columns 57 through 79, ensure 
that data is the type you specify in the data-type entry. 

When processing numeric fields, your program might produce 
unpredictable results for fields that have data types other than S. 
These data types can allow input that is not numeric, such as blanks, 
commas, and periods. Your program is responsible for checking that 
only numeric data is entered into those numeric fields. 
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Mandatory Fill (Column 28) 



When mandatory fill is specified, if one character is typed in an input 
field, all positions in the field must be filled with non-null characters. 
(A non-null character is any character that can be entered from the 
keyboard or a space produced by the operator pressing the space bar.) 
The operator can use the cursor keys to exit from a mandatory fill field. 
However, if the operator uses the cursor keys, no adjusting will occur. 

An entry of Y specifies that if one character is typed in the field, all 
positions in the field must be filled with non-null characters. If you 
specify mandatory fill, you cannot specify adjust/fill (column 31 of the 
□ -specification) for the same field. 

An entry of N or blank specifies that this input field does not have to 
be filled. 

If any other entry is made, WSU will assume an entry of N. 

Mandatory Entry (Column 29) 

An entry of Y specifies that at least one character or blank must be 
entered in the input field. 

An entry of N specifies that this input field can be bypassed on this 
display. 

If a blank or any other entry is made, WSU assumes an entry of N. 
Notes: 

1 . This entry applies during enter, review, and insert modes. 

2. A mandatory- entry field that is blank when a display is entered 
causes a keyboard error to appear. The operator must press the 
Error Reset key and then press the Field Backspace key to return 
the cursor to the beginning of the mandatory-entry field. An 
operator can bypass a mandatory-entry field if: 

• Ail input fields on the display are mandatory-entry fields, the 
Return Input entry on the S-specification is Y, and the 
operator does not enter data in any of the input fields. 

• The Return Input entry on the S-specification is N and the 
operator does not enter data in any of the input fields. 
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Self-Check (Column 30) 



A T specifies that the input field is a modulus 1 0 self-check field. 

An E specifies that the input field is a modulus 1 1 self-check field. 

If a blank or any other entry is made, WSU assumes that the input 
field is not a self-check field. This entry must be blank for alphameric 
fields. 

When a check digit error occurs, a 4-digit message number flashes on 
line 24. When the operator presses the Error Reset key, the cursor 
returns to the start of the field in error (the field is not changed), and 
the operator can enter the data again. 

Refer to Appendix A. Using Se/f-Check Fields for an explanation of 
self-check fields. 

Adjust/Fill (Column 31) 

An entry of Z causes the field to be right- adjusted and filled with 
zeros. WSU right-adjusts data that operators enter into the field; 
unused positions appear and transmit as zeros. 

An entry of B causes the field to be right-adjusted and filled with 
blanks. WSU right-adjusts data that operators enter into the field; 
unused positions appear and transmit as blanks. 

If the field is signed-numeric, unused positions appear as blanks but 
transmit as zeros. 

An entry of either Z or B causes the field to have controlled field exit 
regardless of the entry in column 35 of this D-specification. The 
operator must press one of the field exit keys after entering the data in 
order to enter the field. 

If a blank or any other entry is made, WSU assumes B for a signed 
numeric field. Adjust/fill is not done for other fields. 

Note: Operators can press the Field+ key (for numeric or signed 
numeric fields), the Field- key (for signed numeric fields), or the Field 
Exit key (for adjust/fill fields). Operators can press the Field Advance 
key for an adjust/fill field, but the adjust/fill does not occur. 
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Position Cursor (Columns 32 and 33) 



If a Y is entered, the cursor is positioned at the beginning of the input 
field when this display appears. If you code Y for more than one field, 
the cursor positions itselif at the beginning of the first field on the 
D-specification for which you coded Y. 

If an N is entered, the cursor is not positioned at the beginning of the 
input field when this display appears. 

An indicator number entry of 01 through 89 positions the cursor at 
the beginning of the input field when this display appears only if the 
specified indicator is on. 

You can use indicators to position the cursor for all, some, or none of 
the fields on a D-specification. 

If two or more indicators that position the cursor are on, the cursor is 
at the beginning of the field on the first D-specification for which you 
specified one of those indicators. 

if blank or any other entry is made, WSU assumes an entry of N. 

Note: if you do not position the cursor at any field on the display, 
the cursor appears at the beginning of the first unprotected field on 
the D-specification, or the cursor remains in its current position if the 
display contains no unprotected fields. 

Controlled Field Exit (Column 35) 

An entry of Y specifies that one of the field exit keys (Field Adv, Enter, 
Field Exit, Field+, Field- [if the field is a signed-numeric field]. Field 
Backspace, Home, or Erase Input) must be pressed before the cursor 
will leave the field. 

An entry of N specifies that the cursor automatically exits from the 
field when the field is filled, unless adjust/fill is specified for the field 
in column 31 or an S data type is specified in column 27. 

If a blank or any other entry is made, WSU assumes an entry of Y if 
adjust/fill or an S data type is specified for the field. Or it assumes an 
entry of M if adjust/fill or an S data type is not specified for the field. 

Note: An entry of N does not cause an automatic skip from the last 
field of this display to the first field of the next display. Instead, the 
cursor returns to the first unprotected field on this display. The entry 
in Auto Record Advance in column 36 can cause an automatic 
advance to the next display. 
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Auto Record Advance (Column 36) 

An entry of Y specifies that all input fields on this display are 
automatically entered when: 

• Operators enter the last character of the last input field, or 

• The cursor is in the last input field and operators press the Field 
Exit, Field+, or Field- key (for a signed numeric field). 

An entry of N specifies that automatic-record-advance does not occur 
for this field. 

If a blank or any other entry is made, WSU assumes an entry of N. 
Protect Field (Columns 37 and 38) 

An entry of Y specifies that the cursor skips the field. Data cannot be 
entered in protected fields. You can protect any field on a display. 

An entry of N specifies that this field is not protected, and the 
operator can type data in this field. 

If an indicator number from 01 through 89 is entered, the cursor 
skips the field only if the specified indicator is on. 

If a blank or any other entry is made, WSU assumes an entry of N 
for an input field; it assumes an entry Y for an output-only field. 

Notes: 

1 . WSU automatically protects output-only fields. 

2. If you protect the following fields, WSU sets them to blank or zero 
when the display is entered: 

• Input-only fields 

• Output/input fields that have output conditioned by an 
indicator that was off when the display appeared. 

You may unintentionally lose data by protecting these fields. 

3. The cursor may appear in a protected field if all of the following 
conditions exist: 

• The field is protected by an indicator that is on when the 
display appears. 

• The field is the first field defined on the D-specifications. 

• The cursor is not put in position by means of an indicator to 
any other field (columns 32 and 33 for all other fields are 
blank or contain indicators that are off). To avoid putting the 
cursor in this position, use the same indicator to protect this 
field and to position the cursor in the next field on the display. 
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4. When a display is shown again by means of an MSG operation, 
fields protected on the display remain protected; fields not 
protected on the display remain unprotected. 

5. If a field is defined as either or both nondisplay and protected (Y 
in columns 43 and 37 of the D-specification) and if column 
separators are requested (Y in column 49 of the D-specification), 
the column separators are displayed on a 5251 Display Station 
and on a 5291 Display Station; the column separators are not 
displayed on a 5292 Color Display Station. 

6. If an indicator is used to control both the nondisplay and protect 
attributes and if column separators are requested, the separators 
are not displayed if both indicators are on when the field is 
displayed. 

High Intensity (Columns 39 and 40) 

An entry of Y causes the data to be intensified (made brighter than the 
normal intensity). 

An entry of N specifies that the data is not to be intensified. 

If an indicator number from 01 through 89 is specified, the data is 
intensified only if the specified indicator is on. 

If a blank or any other entry is made, the data is not intensified. 

If this display format is shown on a 5292 Color Display Station and 
high intensity is specified, the field is displayed with white characters. 
If other field attributes are specified, the color result is different. For 
the color result of specific attribute combinations, see Figure 16-1 . 
For additional information about the control of color, see the 5292 
Color Display Station Programmer's Guide. 

WSU allows high intensity to be conditioned by different indicators. If 
all indicators are on when the display appears, the field is not 
displayed. Refer to Figure 16-2 for a list of invalid combinations of 
attributes. 
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Blink Field (Columns 41 and 42) 



An entry of Y specifies that the field blinks when the display appears. 

An entry of N specifies that the field does not blink when the display 

appears. 

An entry of an indicator number from 01 through 89 specifies that 
this field blinks only if the specified indicator is on. 

If a blank or any other entry is made, WSU assumes an entry of N, 
and the field does not blink. 

If this format is displayed on a 5292 Color Display Station and blink 
field is specified, the field is displayed with red characters, and does 
not blink. To cause the characters in the field to blink, you must also 
specify high intensity (columns 39 and 40 of the D-specification). If 
other field attributes are also specified, the color result might be 
different. For the result of specific attribute combinations, see Figure 
16-1. For additional information about the control of color, see the 
5292 Color Display Station Programmer's Guide. 

Notes: 

1 . If nondisplay is specified and high intensity (columns 39 and 40), 
reverse image (columns 45 and 46), or underline (columns 47 and 
48) is also specified, the field is defined as nondisplay only. 

2. If a field is defined as either or both nondisplay and protected (Y 
in columns 43 and 37 of the D-specification) and if column 
separators are requested (Y in column 49 of the D-specification), 
the column separators are displayed on a 5251 Display Station 
and on a 5291 Display Station; the column separators are not 
displayed on a 5292 C^olor Display Station. 

3. if an indicator is used to control both the nondisplay and protect 

attributes and if column separators are requested, the separators 
are not displayed if both indicators are on when the field is 
displayed. 

Refer to Figure 1 6-2 for a list of invalid combinations of attributes. 
Nondisplay (Columns 43 and 44) 

An entry of Y specifies that the data from the field is not displayed 
when the display appears or that the data entered into the field is not 
displayed. 

An entry of N specifies that the data be displayed. 

An indicator number from 01 through 89 specifies that this data is 
displayed only if the specified indicator is on. 

If blank or any other entry is made, WSU assumes an entry of N 
and the data is displayed. 

See Figure 16-2 for a list of invalid combinations of attributes. 
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^ Field does not blink. 

^Column separators do not appear when reduced line spacing is used. 
^Column separators do not appear. 



Figure 16-1. Controlling Color on a 5292 Color Display Station 
Notes: 

1 . Underlines and column separators are always blue. 

2. Underlines do not blink if blink field is also specified. 

3. Column separators do not appear if blink field is also specified. 

4. Use the limited color switch of the 5292 Color Display Station to 
see how a display format designed for color will appear on a 
single-color display. 
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Reverse Image ( Columns 45 and 46) 

An entry of Y specifies that the data image be reversed (characters are 
dark on a light background). 

An entry of N specifies that the image not be reversed (characters are 
light on a dark background). 

An indicator number entry from ( b01 through 89) b specifies that the 
data image be reversed only if the specified indicator is on. 

If a blank or any other entry is made, WSU assumes an entry of N 

and the image is not reversed. 

WSU allows reverse image to be conditioned by different indicators. 
If all indicators are on when the display appears, the field is not 
displayed. Refer to Figure 16-2 for a list of invalid combinations of 
attributes. 



Attributes 


WSU Action 


Mandatory fill and adjust/fill 


Mandatory fill only 


High intensity and nondisplay 


Nondisplay only 


Blink field and nondisplay 


Nondisplay only 


Reverse image and nondisplay 


Nondisplay only 


Underline and nondisplay 


Nondisplay only 


Reverse image, underline, and 
high intensity 


Terminal error- 
message 


Mandatory entry and protect 
field 


Protect field only 



Figure 16-2. Invalid Combinations of Attributes 



Underline (Columns 47 and 48) 

An entry of Y specifies that the data on the display be underlined. 

An entry of N specifies that the data not be underlined. 

An indicator number entry of 01 through 89 specifies that this 
display be underlined only if the specified indicator is on. 

If a blank or any other entry is made, WSU assumes an entry of N 
and the data is not underlined. 

If this format is displayed on a 5292 Color Display Station and 
underline is specified, the field is displayed with a blue line beneath 
the character positions in the field. The color of the characters 
displayed in the field depends on the other field attributes that are 
specified. For the result of specific attribute combinations, see Figure 
16-1 . For additional information about the control of color, see the 
5292 Color Display Station Programmer's Guide. 
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WSU allows underline to be conditioned by different indicators. If all 
indicators are on when the display appears, the field is not displayed. 
Refer to Figure 1 6-2 for a list of invalid combinations of attributes. 

Column Separators (Column 49) 

An entry of Y specifies that a divider be placed on the display before 
and after each character position in the field. The vertical lines do not 
occupy a character position. 

For example: 

Before operator data entry: - . . 
After operator data entry: .135 

An entry of N specifies that column separators not be used. 

If a blank or any other entry is made, WSU assumes an entry of N 
and the column separators are not used. 

If this format is displayed on a 5251 Display Station, the column 
separators appear as vertical lines (|) on either side of each character 
position in the field. 

If this format is displayed on a 5291 Display Station, the column 
separators appear as two vertical dots (:) on either side of each 
character position in the field. 

If this format is displayed on a 5292 Color Display Station, the column 
separators appear as blue dots at the bottom corners of each character 
position in the field. If blink field is also specified, the column 
separators do not appear on the display. The color of the characters 
displayed in the field depends on the other field attributes that are also 
specified. For the result of specific attribute combinations, see Figure 
16-1. For additional information about the control of color, see the 
5292 Color Display Station Programmer's Guide. 

Notes: 

1 . If a field is defined as either or both nondisplay and protected (Y 
in columns 43 and 37 of the D-specification) and if column 
separators are requested (Y In column 49), the column separators 
are displayed on a 5251 Display Station and on a 5291 Display 
Station; the column separators are not displayed on a 5292 Color 
Display Station. 

2. if an indicator is used to control both the nondisplay and protect 
attributes and if column separators are requested, the separators 
are not displayed if both indicators are on when the field is 
displayed. 
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Lowercase (Column 51) 



An entry of Y specifies that all alphabetic characters typed into this 
field from the keyboard can be displayed and sent to the user program 
in lowercase (if the Shift key is not pressed when the character is 
typed in by the operator) or in uppercase (if the Shift key is pressed 
when the character is typed in by the operator). 

An entry of N specifies that all characters typed from the keyboard be 
sent to the program in uppercase. 

Lowercase must be blank for numeric fields. 

The D -specification entry for field lowercase always takes priority over 
the S-specification for field lowercase (see column 21 of the 
S-specification in this chapter). This means that whatever is specified 
in the S-specification for the entire display, you can modify that 
definition for a particular field in the display. 



The following chart defines what can be typed in the input field 
depending on what is specified in the S- and D -specifications: 



Entry in Column 
51 of the 
D-Specification 


Entry in Column 51 of the S-Specification 


Blank 


N 


Y 


Blank 


Uppercase only 


Uppercase only 


Lowercase or 
uppercase 


N 


Uppercase only 


Uppercase only 


Uppercase 
only 


Y 


Lowercase or 
uppercase 


Lowercase or 
uppercase 


Lowercase or 
uppercase 
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Constant Type and Constant Data (Columns 56 
through,79) 

Columns 56 through 79 are for specifying the constants (or prompts) 
used on your display formats. Refer to Chapter 6, Coding Displays, 
for more about using constants. Figure 6-7 Is a D-specification 
coding chart. Constant types C, D, and P can use ideographic 
characters while constant types F and M cannot. 

If column 56 contains a blank or F, columns 57 through 79 must be 
blank. 

0 An entry of 0 in column 56 indicates that columns 57 through 
79 contain an initial constant value for the input field named in 
columns 7 through 1 2. Other required entries are: 

• The input field name in columns 7 through 12. 

• The starting location of the constant in columns 1 9 through 
22. 

• Output Data in columns 23 and 24 must be N or blank. 

• A Y in Input Allowed in column 26. 

• The constant in columns 57 through 79. This constant, 
which must not be enclosed with apostrophes, can be 
continued to columns 7 through 79 of the following 
D-specification statement. 

WSU displays the constant when the display appears. If a data 
type is specified in column 27, WSU does not verify that the 
constant is of the same type. An alphameric field that has a 
constant initial value is replaced with the value, beginning with 
the leftmost position. Positions that are not entered remain 
unchanged. 

D An entry of D in column 56 indicates that columns 57 through 
79 contain an initial constant value for the input field named in 
columns 7 through 12, and the field's name is used as the 
prompt for the field. Required entries are: 

• The input field name in columns 7 through 12. 

• The starting location of the field name prompt in columns 19 
through 22. 

Regardless of the length of the field name, WSU reserves 6 
positions on the display for the name, in addition, one blank 
separates the last position for the field name from the first 
position of the constant initial value. 

• Output Data in columns 23 and 24 must be N or blank. 

• A Y in input Allowed (column 26). 

• The constant in columns 57 through 79. This constant, 
which must not be enclosed with apostrophes, can be 
continued to columns 7 through 79 of the following 
D-specification statement. 
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WSU displays the constant and the field name when the display 
appears. The cursor skips over the field name during data entry 
and positions itself at the beginning of the constant. 

If a data type is specified in column 27, WSU does not verify 
that the constant is of the same type. An alphameric field that 
has a constant initial value is replaced with the value, beginning 
with the leftmost position. Positions that are not entered remain 
unchanged. 

P An entry of P iri column 56 indicates that columns 57 through 
79 contain a prompt that starts in the position specified in 
columns 1 9 through 22. Required entries are: 

• The starting location of the prompt in columns 1 9 through 
22. 

• The prompt, enclosed in apostrophes, in columns 57 through 
79. This prompt can be continued to columns 7 through 79 
of the following D-specification statement by coding a 
nonblank character in position 80. 

A field name may be coded on the same D-specification as a 
prompt. The starting location refers to the prompt. One blank 
separates the last position of the prompt and the first position of 
the field. 

The cursor skips over each prompt on a display during data entry 
and positions itself only at the beginning of input fields. 

F An entry of F in column 56 specifies that the field name in 
columns 7 through 1 2 becomes the prompt for the field. 
Required entries are: 

• The name of an input field, output field, or output/input field 
in columns 7 through 12. 

• The starting location of the field-name prompt in columns 19 
through 22. 

Regardless of the length of the field name, WSU reserves 6 
positions on the display for the name. In addition, one blank 
separates the last position for the field name from the first 
position of the field. 

The cursor skips over each prompt on a display during data entry 
and positions itself only at the beginning of input fields. 

M An entry of M in column 56 indicates that columns 57 through 
60 contain a 4-digit message identification code (MIC) that 
references a message in your message load member. Required 
entries are: 

• Field Name in columns 7 through 1 2 must be blank. 

• The starting location of the prompt in columns 1 9 through 
22. 

• Output Data in columns 23 and 24 must be blank. 

• The 4-digit MIC in columns 57 through 60. 
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Columns 23 through 30 of the J -specification specify the 
message load member to use. 

WSU determines the number of positions between the start of this 
message and the start of the next field or constant on this display. If 
you do not leave, enough room for your message, the extra rightmost 
characters are truncated. You must allow at least 6 positions for the 
message on the display. 

The cursor skips over each message on a display during data entry and 
positions itself only at the beginning of input fields. 

Continuation (Column 80) 

This entry can be any character except a blank; it allows you to 
continue coding constant data that does not fit in columns 57 through 
79 into columns 7 through 79 of the following D-specification 
statement. You are allowed one continuation of any D-specification 
statement that has C, P, or D in column 56. The continuation line 
should not contain * in column 7, because WSU then assumes that 
the line contains a comment rather than a continuation of the previous 
line. 
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Chapter 17. C-( Processing) Specification 



This chapter summarizes the entries that you can code on the 
C-specification. You can find additional information about coding 
C-specifications in the following: 

• Chapter 2 describes the WSU program cycle and processing levels. 

• Chapter 3 explains the indicators and reserved fields you can use 
on the C-specification. 

• Chapter 7 describes coding processing. 

• Chapter 1 1 contains example programs for which C-specifications 
have been coded. 

• Chapter 18 contains detailed explanations of the operation codes. 

S/36 WSU Processing Specifications 
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WSU checks the following entries on the C-specification. 
Processing Function (Columns 7 and 8) 

Below are the processing functions that you can specify for your 
program. 

Blank Operation for the display defined by the S- and 

□ -specifications that come before these 
C-specifications, or operation in a subroutine. 

Operation that occurs only during the job- initiation 
processing level. 

Operation that occurs only during the 
work-session -initiation processing level. 

Operation that occurs only during the 

end-of-sequence-set processing level. ES processing 
occurs only for the primary display sequence. 

Operation that occurs only during the 
end-of-work-session processing level. 

Operation that occurs only during the end-of-job 
processing level. 

Operation in a subroutine. SR in columns 7 and 8 is 
an optional entry for a subroutine operation, including 
BEGSR, PRTY, and ENDSR. 

AN or OR AND/OR relationship line used to link conditioning 
indicators in columns 9 through 17. Use the AN and 
OR entries to group as many as seven OR lines, seven 
AND lines, or seven lines with any combination of the 
two to condition an operation. The first line of the 
group can have blanks, IJ, IW, ES, EW, EJ, or SR in 
columns 7 and 8. All lines after the first must have AN 
or OR in columns 7 and 8. The last line of the group 
contains the operation and the necessary operands. 
All lines in the group except the last line must have 
blanks in columns 18 through 59, and must have one 
or more indicators in columns 9 through 17. 

Note: If you code a processing-function indicator in columns 15 and 
16 of an S-specification, all C-specifications associated with that 
S-specification must have the same processing function specified in 
columns 7 and 8. 



J 

W 
ES 

EW 

EJ 

SR 
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Conditioning Indicators (Columns 9 through 17) 



The following indicators can be used to specify the conditions for 
doing the operations you want done for your program. 



Indicator 

Blank 

AC 

AE 

CG 
DL 
EJ 

ES 

EW 

IJ 
IP 
IN 
IS 

IW 

JA-JN, JP-JY 
KG-KL, KQ-KY 

PG 
RC 

RP 
RR 



Operation is done: 

Each time the C-specification is processed. 

When one of the KG through KL and KQ through 
KY command key indicators is on. 

When the AE (accept sequence error) indicator is 
on. 

When the CG (current group) indicator is on. 

When the DL (delete) indicator is on. 

When the EJ (end of job) indicator is on. This 
operation can occur outside of the EJ processing 
level if the EJ indicator has been set on by means 
of a SETON operation. 

When the ES (end of sequence set) indicator is 
on. This operation can occur outside of the ES 
processing level if the ES indicator has been set 
on by means of a SETON operation. 

When the EW (end of work session) indicator is 
on. This operation can occur outside of the EW 
processing level if the EW indicator has been set 
on by means of a SETON operation. 

When the IJ (job initiation) indicator is on. 

When the IP (input to process) indicator is on. 

When the IN (insert mode) indicator is on. 

When the IS (start transaction sequence) 

indicator is on. 

When the IW (work session initiation) indicator 
is on. 

When the specified job indicator is on. 

If the corresponding command key was enabled 
and pressed. 

When the PG (program mode) indicator is on. 

When an operator restarts a work session after a 
system or program error. The program must have 
a transaction file in order to use this indicator. 

For a display that has been displayed again by 
means of the MSG operation. 

When the RR (record review) indicator is on. 
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RS 



When an operator restarts a work session after 
signing off. The program must have a transaction 
file in order to use this indicator. 



RU 



When the RU (rover/update) indicator is on. 



RV 



Only in review mode or insert mode. 



SA-SN, SP-SY When the specified session-level indicator is on. 



Use columns 9 through 17 to assign indicators that specify the 
conditions for doing the operation. You can code from one to three 
indicators in columns 10 and 11,13 and 14, and 16 and 17 on each 
line. If an indicator must be off before the operation is done, code an 
N before the indicator in column 9, 12, or 15. 

The indicators in columns 9 through 17 operate in an and relationship 
with one another. By coding an AN or OR entry in columns 7 and 8, 
you can use more than three indicators to condition a single operation. 
You can include as many as seven OR lines, seven AND lines, or 
seven lines with any combination of the two. 

For more information about indicators, refer to Chapter 3, Reserved 
Fields and Indicators. 



U1-U8 



If the specified indicator was set on by means of 
the SWITCH OCL statement before the program 
ran or by means of a SETON operation. 



01-89 



if the specified indicator is on. 
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Factor 1 and Factor 2 (Columns 18 through 27 and 33 
through 42) 



These entries name fields or array elements or specify data (literals) for 
an operation in columns 28 through 32. Allowed entries depend upon 
the operation. The maximum length of a file/format name is 8; the 
maximum length for a field/label name is 6. Figure 17-1 shows the 
possible entries for factor 1 and factor 2 for each operation. 



Operation 


Operation Code 






Type 


(28 through 32) 


Factor 1 (18 through 27) 


Factor 2 (33 through 42) 


Ml ILillTldlU 


Ann 


iNumcric Ticiu or iiieidi 


iNumeric iieiu or iiierai 




Ul V 


Numeric field or literal 


Numeric field or literal 




Kill II T" 

MULT 


Numeric field or literal 


Numeric field or literal 




MVR 


Blank 


Blank 




SUB 


Numeric field or literal 


Numeric field or literal 




Z-ADD 


Blank 


Numeric field or literal 




Z-SUB 


Blank 


Numeric field or literal 


Array 


LOKUP 


Field or literal 


Array name 




MOVEA 


Blank 


Field, literal, or array name 




SORTA 


Blank 


Array name 




XFOOT 


Blank 


Array name 


Branching 


GOTO 


Blank 


Label of a TAG operation or ENDSR operation 




EXSR 


Blank 


Subroutine name 




TAG 


Label 


Blank 


Comparing and 


COMP 


Field or literal 


Field, literal, table of fields, or table of literals 


Testing 


RANGE 


Field or literal 


Field or literal 


Debugging 


ncQi in. 
UcdUu 


Field, literal, or blank 


DianK 


Indicator 


SETOF 


Blank 


Blank 




SETON 


Blank 


Blank 


Output/Input 


GET 


Blank 


Master file name 




GETNH 


Blank 


Transaction file name or blank 




CTM D 


DianK 


Transaction file name or blank 




vjc 1 rn 


bianK 


Transaction file name or blank 




GETPR 


Blank 


Transaction file name or blank 




IMSG 


Blank 


MIC or message text 




MSG 


Blank 


MIC or message text 




PUT 


Blank 


Transaction file name or master file name 




PUTN 


Blank 


Master file name 




PUTS 


Blank 


Display format name 




TIME 


Blank 


Blank 


Move 


MOVE 


Blank 


Field, literal, or *BLANK 




MOVEL 


Blank 


Field or literal 


Subroutine 


BEGSR 


Subroutine name 


Blank 




ENDSR 


Label or blank 


Blank 




PRTY 


Blank 


0, 1, 2, or 3 



Figure 17-1. Entries for Factor 1 and Factor 2 

I 
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Operation (Columns 28 through 32) 



Columns 28 through 32 specify the operation to be done using factor 
1 , factor 2, and/or the result field. The operation code must begin in 
column 28. 

Figure 17-1 is a summary of operation codes and the entries for factor 
1 and factor 2. Figure 17-2 is a summary of all the entries for 
operation codes. Chapter 7 contains examples of using operations; 
Chapter 18 contains descriptions of all the operation codes. 

Table or Message Text (Columns 33 through 52) 

For a COMP operation, you can code a table of values (field names or 
literals). Table elements must be separated with a semicolon. You 
can continue a table to columns 7 through 52 of the next line if you 
code a nonblank character in column 53. 

For a MSG or I MSG operation, you can code message text enclosed 
in apostrophes. You can continue the message text to columns 7 
through 52 of the next line if you code a nonblank character in 
column 53. 

Literal (Columns 43 through 52) 

A literal is the actual data used in an operation, rather than the field 
name representing that data. A literal can be alphameric or numeric. 

The following rules apply to each alphameric literal: 

• Any combination of characters and blanks can be used. 

• The maximum length is 8 characters including blanks. 

• It must be enclosed with apostrophes ('). 

• An apostrophe in the literal is represented by two apostrophes. 
For example, the literal O'CLOCK is coded as '0"CLOCK'. 

• It cannot be used for arithmetic operations. 

• It must be left-adjusted. 

The following are examples of alphameric literals: 

'51 2% DT.' 
'February' 
'0"Clock' 
"'82' 

The following rules apply to each /7f//we/'/c literal: 

• It consists of any combination of the digits 0 through 9. A 
decimal point, comma, or a sign (+ or -) can also be included, 
depending on the edit code specified in column 43 of the 

J -specification and column 25 of the D-specification. 

• It must be left- adjusted. 

• The sign (+ or -), if present, must be the leftmost character. WSU 
treats a numeric literal that is not signed as a positive number. 
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• The maximum total length is 10 digits including sign and decimal 
point. 



• Embedded blanks are not allowed. 



• It must not be enclosed in apostrophes ('). 

• It is used in the same way as a numeric field. 



The following are examples of numeric literals: 



12500 
125.00 
.001256789 
-.01256789 



For a RANGE operation, a numeric literal (up to 10 digits), an 
alphameric literal (up to 8 characters), or the name of a field upon 
which the operation is done can be coded in columns 43 through 52. 



i 
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Result Field 





Operation 


Processing Conditioning 










Decimal 


Half- 


Resulting 


Type of 


Code 


Function 


Indicators 


Factor 1 


Factor 2 


Name 


Length 


Position 


Adjust 


Indicators^ 


Operation 


(28-32) 


17-8) 


(9-17) 


(18^27) 


(33-42) 


(43-48) 


(49-51) 


(52) 


(53) 


(54-59) 


Arithmetic 


f\UU 


0 


0 


D 

n 


Q 

n 


p 

n 


n 


\j 


n 
\j 


VJ 






0 


0 


n 


D 

ri 


p 
n 


r\ 
\J 


r\ 
vJ 


r»2 
\j 


U 




Ml II T 
IVIUL 1 


0 


0 


D 
n 


n 


p 

n 


KJ 


U 


KJ 


\j 




MVR 


0 


0 


B 


B 


R 


0 


0 


B 


0 




SUB 


0 


0 


R 


R 


R 


0 


0 


0 


0 




Z-ADD 


0 


0 


B 


R 


R 


0 


0 


0 


0 




Z-SUB 


0 


0 


B 


R 


R 


0 


0 


0 


0 


Array 


LOKUP 


0 


0 


R 


R 


B 


B 


B 


B 


R 




MOVEA 


0 


0 


B 


R 


R 


0 


0 


B 


B 




SORTA 


0 


0 


B 


R 


B 


B 


B 


B 


B 




XFOOT 


o 


u 


B 


R 


R 


0 


0 


0 


0 


Brandling 


GOTO 


0 


0 


B 


R 


B 


B 


B 


B 


B 




EXSR 


/-V 

u 


u 


B 


R 


B 


B 


B 


B 


B 




TAG 


0 


B 


R 


B 


B 


B 


B 


B 


B 


Comparing 


COMP 


0 


0 


R 


R3 










R 


and Testing 


RANGE 


0 


0 


R 


R 


R 


0 


0 


B 


R 


Debugging 


DEBUG 


0 


0 


0 


B 


0 


B 


B 


B 


B 


Indicators 


SETOF 


0 


0 


B 


B 


B 


B 


B 


B 


R 




SETON 


0 


0 


B 


B 


B 


B 


B 


B 


R 


Output/ Input 


Ut 1 


0 


0 


p 


n 


p 

D 


p 

D 


p 

D 


p 

D 


Ct* 




rSCTMU 

o 1 1 iM n 


0 


0 


D 


u 


p 


p 
D 


p 
D 


p 


\j 




V3t 1 IMn 


0 


0 


D 
D 


u 


p 


p 


p 
D 


p 


u 




ut 1 rn 


0 


0 




r»5 
\j 


p 
D 


p 


p 


p 


(J 




Ot 1 r rl 


0 


0 


p 


VJ 


p 


p 
D 


p 
D 


p 
D 


rj'* 
\j 




IIVIOV3 


0 


0 


P 
D 


n 














IVIOV3 


0 


0 


p 


n 














PUT 


0 


0 


B 


R 


B 


B 


B 


B 


0^ 




PUTN 


0 


0 


B 


R 


B 


B 


B 


B 


R8 




PUTS 


r\ 

u 


o 


B 


R 


B 


B 


B 


B 


B 




TIME 


0 


0 


B 


B 


R 


0 


0 


B 


B 


Move 


MOVE 


0 


0 


B 


R 


R 


0 


0 


B 


B 




MOVEL 


0 


0 


B 


R 


R 


0 


0 


B 


B 


Subroutine 


BEGSR 


0 


B 


R 


B 


B 


B 


B 


B 


B 




ENDSR 


0 


B 


0 


B 


B 


B 


B 


B 


B 




PRTY 


0 


B 


B 


RS 


B 


B 


B 


B 


B 



0 = optional; R = required; B = blank 



^Resulting indicators must not be coded on a line that does not have an operation code. 
^MVR cannot follow a DIV operation that specified half-adjust. 

^Factor 2 can be a field, literal, or table of values. Column 53 is used to indicate continuation of a table. 

*You can code an indicator in columns 54 and 55 that turns on when WSU cannot find a record to read or cannot identify a record. 
Columns 56 through 59 must be blank. 

^Factor 2 can be blank or the name of the transaction file. If factor 2 is blank, WSU assumes the name of the transaction file. 
^Factor 2 can be as many as 64 characters of message text or a 4-digit MIC. Column 53 is used to indicate continuation of message 
text. 

^You can code the type of record to be written to the transaction file in columns 54 and 55; columns 56 through 59 must be blank. 
^You must code the type of record to be added to the master file in columns 54 and 55; columns 56 through 59 must be blank. 
^Factor 2 must be 0, 1, 2, or 3, and must be left-adjusted. 

Figure 17-2. Operation Codes 
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Result Field (Columns 43 through 53) 



The Result Field area on the C-specification contains information 
about the results of the operation that was named in columns 28 
through 32. 

The result field consists of four entries: 

• Name 

• Length 

• Decimal positions 

• Half-adjust. 

Result Field Name (Columns 43 through 48) 

This entry names either the field (or array) that will contain the results 
of the operation coded in columns 28 through 32, or (as for the 
RANGE operation) the field or literal upon which the operation is 
done. You can define a result field by coding a new field name, or 
you can use the name of a field that you have defined elsewhere in 
the program. During program running, WSU reserves storage in a field 
area for copies of any field that you define. For a field defined 
elsewhere in a program, columns 49 through 52 can be blank; 
however, any entries in columns 49 through 52 must agree with all 
other definitions of the field in the program. 

A job field can be defined as the result field name. Only one copy of 
a job field is generated per program, rather than one copy per each 
display station that uses the program. Job field names must begin 
with & and must be left-adjusted. The second character must be 
alphabetic; the remaining characters (up to 4) must be alphameric. 
Job field names cannot contain blanks. 

Result Field Length (Columns 49 through 51) 

To specify the length of the result field, you can enter a number from 
1 through n. The maximum length, a7, is 1 5 for a numeric field and 
256 for an alphameric field. The length must be right-adjusted. 

If the field is defined elsewhere in this program (on the 

I -specifications in this program's file definition or on another 

C-specification in the program), leave this entry blank. 

If any other entry is made, WSU assumes a blank. 

Those result fields defined as packed fields on I -specifications can 
have their lengths redefined by this entry. The result field length must 
allow for the unpacked length of a field. See Chapter 7, Coding 
Processing, for examples of using result fields and result field lengths. 
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Result Field Decimal Positions (Column 52) 



To show the number of decimal positions wanted to the right of the 
decimal in a numeric result field, you can enter a number from 0 
through 9. If the numeric result field contains no decimal positions, 
enter a 0 (zero). 

The number of decimal positions must never be greater than the 
length of the field. The number can, however, be larger or smaller 
than the number of decimal positions that actually result from an 
operation. If the number of decimal positions specified is greater than 
the number of decimal places that actually result from an operation, 
zeros fill in to the right. If the number specified is smaller than the 
number that results from the operation, the rightmost digits drop. 

Figure 17-3 shows how the contents of a numeric result field after a 
multiplication operation can change according to the decimal 
positions (column 52) and field length (columns 49 through 51 ) 
specifications. 

If this is an alphameric result field or a numeric result field defined by 
an I -specification or C-specification elsewhere in the program, leave 
this column blank. The decimal -positions entry must be blank if the 
field-length entry (columns 49 through 51 ) is blank. 

If any other entry is made, WSU assumes an entry of 0 if the field 
length (columns 49 through 51 ) is not blank and assumes blank if the 
field length is blank. 



Multiplication: 98.76 x 1.234 = 121.86984 



Decimal 
Positions 
for Result 
Field 

(column 52) 



Result Field Length (columns 49 through 51 ) 




A Not permitted 



Permitted but inaccurate 



Recommended 



Figure 17-3. Result Field Contents Based on Various Field Lengths and Decimal 
Positions 
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Result Field Half-Adjust (Column 53) 



This entry indicates whether or not the contents of the result field are 
half -adjusted (rounded). 

if you do not want the field ha If- adjusted, leave the column blank. 

If you want the field half -adjusted, enter an H. 

If any other entry is made, WSU assumes an entry of H. 

Half-adjusting adds 5 (-5 if the result is negative) to the number at 
the right of the last decimal position specified for the field. All 
decimal positions to the right of the position specified for that field 
drop (Figure 17-4). 

The half-adjust entry is allowed with all arithmetic operations except 
MVR. Also, if half-adjust is specified for a DIV operation, an MVR 
operation should not follow it. 



Stqutnce 
Numbtr 



Conditioning 
Indicitort 



m 



Opnration 



TabI* or Mnuge Text 



Fwtor2 



18 19 20 21 22 23 24 26 26 27)28 2930 31 32133 34 36 36 37 38 3940 41 42 13 44 46 46 47 48 

RiasiuuT 



5|.|7|<?|6|8| 



Length 



mi 



Resulting 
Indieatori 



Arithmetic 
Plu»|Minui^er 



Compere 



Low Eque 



1<2 



1-2 



49 60 61 62 63 (4 66 S6 67 68 6a W 61 62 63 64 66 66 67 88 6970 71 72 73 74 76 76 77 78 79 80 



Figure 17-4. Half- Adjust Operation 



Use of Column 53 to Continue Message Text 

Column 53 can also be used to continue message text for an I MSG or 
MSG operation or to continue a table for a COM P operation. To 
allow continuation, you must code any character except a blank in this 
column. 
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Resulting Indicators (Columns 54 through 59) 

Use columns 54 and 55, 56 and 57, and 58 and 59 to indicate the 
results of operations. You can code these columns only on 
C-specification lines that specify operation codes. 

Before an operation is done, all its resulting indicators should be set 
off. After the operation is done, WSU checks the result and sets on 
the appropriate indicators. 

Figure 17-5 shows resulting indicators that can be used with each 
operation. Refer to Chapter 3 for descriptions of the indicators. 

Plus or High 1 > 2 (Columns 54 and 55) 

An indicator in these columns turns on if: 

• The result of an arithmetic operation is positive. 

• Factor 1 is greater than factor 2 in a CO MP operation. 

• One of the get operations was not successful. 

• Factor 1 is greater than the higher field in a RANGE operation. 
Minus or Low 1 < 2 (Columns 56 and 57) 

An indicator in these columns turns on if: 

• The result of an arithmetic operation is negative. 

• Factor 1 is less than factor 2 in a COMP operation. 

• Factor 1 is not equal to any entry in a table in a COMP operation. 

• Factor 1 is less than the lowest field in a RANGE operation. 
Zero or Equal 1 =2 (Columns 58 and 59) 

An indicator in these columns turns on if: 

• The result of an arithmetic operation is zero. 

• Factor 1 equals at least one entry in a table in a COMP operation. 

• Factor 1 equals factor 2 in a COMP operation. 

• Factor 1 is equal to one value or between the two values in a 
RANGE operation. 
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Operation 


Resulting Indicators 


AC 


AE 


EJ 


ES 


EW 


IP 


IS 


JA- 
JN 
JP- 
JY 


KG- 
KL 
KQ- 
KY 


PG 


RC 


RP 


RS 


SA- 
SN 
SP- 
SY 


U1- 
U8 


01-89 


ADD 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


COMP 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


DIV 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


GET 
































X 


GETNH 
































X 


GETNR 
































X 


GETPH 
































X 


GETPR 
































X 




X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


MSG 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


MULT 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


MVR 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


PUT 
































X 


PUTN 
































X 


RANGE 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


SETOF 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


SETON 


X 


X 


X 


X 


X 






X 


X 


X 


X 




X 


X 


X 


X 


SUB 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


Z-ADD 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


Z-SUB 


X 


X 


X 


X 


X 






X 


X 










X 


X 


X 


Notes: 

1 . An X in the above figure specifies a resulting indicator that can be used by the operation. 

2. BEGSR, DEBUG, ENDSR, EXSR, GOTO. LOKUP, MOVEA, MOVE. MOVEL, PRTY. PUTS. SORTA, TAG, and TIME 
do not allow resulting indicators. 

3. Indicators CG, DL, IJ, IN, iW, RR, RU. and RV are turned on and off only by WSU. 



Figure 17-5. Using Resulting Indicators 
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Additional Uses of Resulting Indicators 

You can specify indicators in columns 54 through 59 for the MSG, 
IMSG, SETON, and SETOF operations. For MSG, IMSG, and SETON, 
the specified indicators turn on when the operation runs. For SETOF, 
the specified indicators turn off when the operation runs. 

You can specify one indicator in columns 54 and 55 for a PUT 
operation. The indicator specifies (in enter mode) the type of record 
to write to the transaction file. You can specify one indicator in 
columns 54 and 55 for a PUTN operation. The indicator specifies the 
type of record to write to a master file. 

Refer to Figure 1 7-5 for a chart showing the operations and the 
resulting indicators that can be used. 

Comments (Columns 60 through 80) 

Comments that you code do not affect the WSU program, but are 
used to make your program easier to understand. 
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Chapter 18. Operation Codes 



Columns 28 through 32 on the WSU Processing Specifications sheet 
specify the operations to be done using factor 1 , factor 2, and a result 
field. The operation code must begin in column 28. Operations are 
also discussed in Chapter 7, Coding Processing, and Chapter 17 
C- (Processing) Specifications. 

ADD 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Required 


ADD 


Required 


Required 


Optional 



Factor 1 : Numeric field or literal 
Factor 2: Numeric field or literal 

Adds factor 1 to factor 2 and places the sum in the result field. 

Factor 1 and factor 2 do not change, unless either is also the result 
field. 

BEGSR (Begin Subroutine) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Blank 


Required 


BEGSR 


Blank 


Blank 


Blank 



Factor 1 : Subroutine name 
Factor 2: Blank 

Labels the beginning of a subroutine. 

Factor 1 can be 1 to 6 characters long. The first character must be 
alphabetic; the remaining characters must be alphameric. No two 
subroutines can have the same name. 

Refer to Chapter 7, Coding Processing, for an example of coding the 
BEGSR operation. 

Notes: 

1 . You must code an ENDSR operation after a BEGSR operation 
before you can code another BEGSR operation. 

2. The subroutine name in factor 1 must not be the same as the 
name in factor 1 of a TAG dr ENDSR operation or as any field 
name defined in the program. 
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COMP (Compare) 



Conditioning 
Indicators 


Factor 1 


Operation 


Table or Message 
Text 


Resulting 
Indicators 


Optional 


Required 


COMP 


Required 


Required 



Factor 1 : Field or literal 

Factor 2: Field, literal, table of fields, or table of literals 

Compares factor 1 to factor 2 and sets a resulting indicator to show if 
the comparison was high, low, or equal. 

You can code conditioning indicators in columns 9 through 17. 

For factor 2, you can code a table of values in columns 33 through 52. 
Table entries must be either field names or literals but cannot be a 
combination of the two. Table entries must be either ail alphameric or 
all numeric. You must separate table elements with a semicolon. 

You can continue a table to columns 7 through 52 of a second 
specification line by coding any character except a blank in column 53 
of the first specification line. The first line of the table must end with 
a semicolon so that the second line of the table begins with a 
left-adjusted table entry. Do not begin the second line of the table 
with an asterisk (*) in column 7 because WSU treats such lines as 
comments. 

A table of values cannot be continued to a third line. 

Refer to Chapter 7, Coding Processing, for examples of the COMP 
operation. 

DEBUG 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Optional 


DEBUG 


Blank 


Optional 


Blank 



Factor 1 : Field, literal, or blank 
Factor 2: Blank 

Provides a means of detecting errors while the program is running. 

The length of the factor 1 value, if used, must not exceed 8 characters. 
You can code indicators in columns 9 through 17 and a result field in 
columns 43 through 48. All other entries must be blank. 

During program generation, WSU adds a DEBUG-YES parameter to 
the WSX statement in the WSU-generated procedure if one or more 
DEBUG operations occur in the program. You can modify the 
WSU-generated procedure to set the debugging function on or off 
before the WSU program runs by specifying YES (on) or NO (off) for 
the DEBUG parameter. Refer to Modifying the WSU -Generated 
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Procedure in Chapter 8 for an explanation on how to change the 
DEBUG parameter. 



If DEBUG-YES is specified in the procedure that calls the program, 
WSU saves the current display and shows a debugging display each 
time a DEBUG operation Is encountered during program running. The 
debugging display contains: 

• The display station's ID.O 

• The contents of the field or literal in factor 1 , or the statement 
number of the DEBUG operation if factor 1 is blank.© 

• A list of indicators that are on, or the word NONE if no indicators 
are on. O 



The contents of the result field, if a result is specified. (Blank in 
example.)© 



DEBUG... 0024 



DISPLAY STATION.. Wl FIELD VALUE. 



INDICATORS ON IP IS RS RC 



You can press the Print key to print the display. When you press the 
Enter key, the saved display (display before the DEBUG display 
appeared) is shown again, and processing resumes at the operation 
following the DEBUG operation. 



Note: DEBUG operations occupy main storage. Therefore, after the 
program is debugged, removing the DEBUG operations and 
generating the program again might improve performance. 
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DIV (Divide) 



Conditioning 
indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Required 


DIV 


Required 


Required 


Required 



Factor 1 : Numeric field or literal 
Factor 2: Numeric field or literal 



Divides factor 1 by factor 2 and places the quotient in the result field. 

Factor 1 and factor 2 do not change unless either is also the result 
field. If factor 1 is zero, the result of the divide operation is zero. If 
factor 2 is zero, WSU issues a message and abnormally ends the work 
session. Any remainder resulting from a divide operation is lost unless 
you code the move remainder operation (MVR) as the next operation. 

ENDSR (End Subroutine) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Blank 


Optional 


ENDSR 


Blank 


Blank 


Blank 



Factor 1 : Label 
Factor 2: Blank 

Defines the end of a subroutine and returns control to the instruction 
after the EXSR operation that called the subroutine. 

Factor 1 can be 1 to 6 characters long. The first character must be 
alphabetic; the remaining characters must be alphameric. This label 
serves as a point which you can branch to by a GOTO statement 
within the subroutine and, therefore, cannot be the same as any of the 
following: 

• Factor 1 of a TAG operation 

• Factor 1 of another ENDSR operation 

• Any other field name defined in the program. 

Conditioning indicators (columns 9 through 17) and factor 2 cannot 
be coded for an ENDSR operation. 

Refer to Chapter 7, Coding Processing, for an example of coding the 
ENDSR operation. 
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EXSR (Execute Subroutine) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


EXSR 


Required 


Blank 


Blank 



Factor 1 : Blank 

Factor 2: Subroutine name 

Branches to and runs the subroutine named in factor 2. 

Indicators in columns 9 through 17 can condition an EXSR operation. 
Factor 2 must be the same name as factor 1 of the corresponding 
BEGSR instruction. 

An EXSR operation can appear anywhere in the program except within 
a subroutine. This means that a subroutine cannot call itself or 
another subroutine. Whenever an EXSR operation appears, the 
subroutine runs. After operations in the subroutine complete, control 
returns to the operation following the EXSR operation. 

Refer to Chapter 7, Coding Processing, for an example of coding the 
EXSR operation. 
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GET (Get a Master File Record) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

IVame 


Resulting 
Indicators 


Optional 


Blank 


GET 


Required 


Blank 


Optional 



Factor 1 : Blank 

Factor 2: Master file name 

Reads a master file record so that it can be used in the WSU program. 

You can code conditioning indicators in columns 9 through 17. Also, 
you can code a record -not-found indicator in columns 54 and 55 that 
turns on when WSU cannot recognize the type of record read. 
Columns 43 through 53 and 56 through 59 must be blank. 

WSU forms the key to read a master file record from the GET fields 
coded in columns 31 through 48 of the M -specification. WSU turns 
on the indicator for the type of record read and turns off all other 
record -identifying indicators for the master file. If WSU can recognize 
the record type, it places the fields for that record type into the field 
area. 

WSU provides a way to detect output/input errors that occur during a 
GET operation by allowing you to code an error indicator in columns 
61 and 62 of the M -specification for the master file. Each time WSU 
starts a GET operation, that error indicator is set off, and the * ERROR 
reserved field is set to zero. If an error occurs during the GET 
operation, the error indicator is set on, and an error code is placed in 
the *ERROR field. Refer to Chapter 3 for information about *ERROR 
and the error codes that this field can contain. Refer to Chapter 1 5 for 
a description of the Error Indicator entry on the M -specification. 

If you code different not-found indicators on the M -specification and 
the C-specification, WSU uses the indicator on the C-specification for 
the GET operation. The not-found indicator on the M -specification 
does not change and might reflect the result of a previous GET 
operation. Refer to Chapter 15 for a description of the Not-Found 
Indicator entry on the M -specification. 

A record -not-found condition is treated as an error only if not-found 
indicators are omitted both from the GET operation and from the 
M-specification. Therefore, any error indicator in columns 61 and 62 
of the M-specification is used when a not-found condition occurs and 
columns 54 and 55 of the GET operation and columns 49 and 50 of 
the M-specification for the master file are blank. 

If a not-found condition or an output/input error occurs and indicators 
have not been coded in the program to reflect the occurrence, the 
system operator receives WSU message 0803 and an error code. The 
operator should refer to the Utilities Messages manual for a 
description of the error. 
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GETNH ( Get the Next Header Record in the Transaction 
File) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting ; 
Indicators 


Optional 


Blank 


GETNH 


Optional 


Blank 


Optional 



Factor 1 : Blank 

Factor 2: Transaction file name or blank 

Reads the next header record from the transaction file. 

If factor 2 is blank, WSU assumes the transaction file name. You can 
code conditioning indicators in columns 9 through 17. Also, you can 
code a record-not-found indicator in columns 54 and 55. This 

indicator turns on when WSU tries to read beyond the last record in 
the chain or when WSU cannot recognize the type of record read. 

A record -not-found condition occurs when WSU, trying to read the 
next header record in the chain, reads beyond the last record in the 
chain. WSU turns on the indicator for the type of record read and 
turns off all other record -identifying indicators for the transaction file 
as well as the RU indicator. A record -not-found condition also occurs 
when WSU cannot recognize the record type. 

If WSU can recognize the record type, it places the fields for that 
record type into the field area and places the relative record number of 
the record in the *RLRU reserved field. 

WSU provides a way to detect output/input errors that might occur 
during a GETNH operation by allowing you to code an error indicator 
in columns 61 and 62 of the T-specification. Each time WSU starts 
the GETNH operation, that error indicator is set off, and the *ERROR 
reserved field is set to zero. If an error occurs during the GETNH 
operation, the error indicator is set on, and an error code is placed in 
*ERROR. Refer to Chapter 3 for information about 'ERROR and the 
error codes that this field can contain. Refer toChapter 1 5 for a 
description of the Error Indicator entry on the T-specification. 

WSU also provides ways to detect record -not-found conditions that 
might occur during a GETNH operation by allowing you to code a 
not-found indicator in columns 54 and 55 of the C-speciflcation or in 
columns 49 and 50 of the T-specification. 

If you code different not-found indicators on the T-specification and 
the C-specification, the indicator on the C-specification is used for the 
GETNH operation. The not-found indicator on the T-specification 
does not change and might reflect the result of a previous GETNH 
operation. Refer to Chapter 1 5 for a description of the Not- Found 
Indicator entry on the T-specification. 

A record-not-found condition is treated as an error only if not-found 

indicators are omitted from the GETNH operation and from the 
T-specification. Therefore, any error indicator in columns 61 and 62 
of the T-specification is used when a not-found condition occurs and 
columns 54 and 55 of the GETNH operation and columns 49 and 50 
of the T-specification are blank. 
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If a not-found condition or an output/input error occurs and indicators 
have not been coded in the program to reflect the occurrence, the 
system operator receives WSU message 0803 and an error code. The 
operator should refer to Xhe Utilities l\/lessages manual for a 
description of the error. 

Notes: 

1 . The GETNH operation causes a terminal error during program 
generation if the program does not specify a transaction file. 

2. If you code a GETNH operation in your program and there are no 
header records in the file (columns 55 and 56 of the 
T-specification are blank), WSU issues a terminal message during 
program generation. 

GETNR (Get the Next Record in the Transaction File) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


GETNR 


Optional 


Blank 


Optional 



Factor 1 : Blank 

Factor 2: Transaction file name or blank 

Reads the next logical record from the transaction file. 

If factor 2 is blank, WSU assumes the transaction file name. You can 
code conditioning indicators in columns 9 through 17. Also, you can 
code a record -not-found indicator in columns 54 and 55. This 
indicator turns on when WSU tries to read beyond the last record in a 
chain or when WSU cannot recognize the type of record read. 

A record-not-found condition occurs when WSU, trying to read the 
next record in the chain, reads beyond the last record in the chain. 
WSU turns on the indicator for the type of record read and turns off all 
other record identifying indicatdls for the transaction file. A 
record -not-found condition also occurs when WSU cannot recognize 
the record type. 

If WSU can recognize the record type, it places the fields for that 
record type into the field area and places the relative record number of 
the record in the *RLRU reserved field. 

WSU provides a way to detect output/input errors that might occur 
during a GETNR operation by allowing you to code an error indicator 
in columns 61 and 62 of the T-specification. Each time WSU starts 
the GETNR operation, that error indicator is set off, and the *ERROR 
reserved field is set to zero. If an error occurs during the GETNR 
operation, the error indicator is set on, and an error code is placed in 
*ERROR. Refer to Chapter 3 for information about "ERROR and the 
error codes that this field can contain. Refer to Chapter 1 5 for a 
description of the Error Indicator entry on the T-specification. 

WSU also provides ways to detect record -not-found conditions that 
might occur during a GETNR operation by allowing you to code a 
not-found indicator in columns 54 and 55 of the C-specification or in 
columns 49 and 50 of the T-specification. 
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If you code different not-found indicators on the T-specification and 
the C-specification, the indicator on the C-specification is used for the 
GETNR operation. The not-found indicator on the T-specification 
does not change and might reflect the result of a previous GETNR 
operation. Refer to Chapter 1 5 for a description of the Not- Found 
Indicator entry on the T-specification. 

A record -not-found condition is treated as an error only if not-found 
indicators are omitted from the GETNR operation and from the 
T-specification. Therefore, any error indicator in columns 61 and 62 
of the T-specification is used when a not-found condition occurs and 
columns 54 and 55 of the GETNR operation and columns 49 and 50 
of the T-specification are blank. 

If a not-found condition or an output/input error occurs and indicators 
have not been coded in the program to reflect the occurrence, the 
system operator receives WSU message 0803 and an error code. The 
operator should refer to the Utilities l\/lessages manual for a 
description of the er^ror. 

Notes: 

1 . The GETNR operation causes a terminal error during program 
generation if the program does not specify a transaction file. 

2. The GETNR operation cannot read records that are being inserted 
in the transaction file until the processing of the insert display 
ends. 

GETPH (Get the Previous Header Record in tfte 
Transaction File) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


GETPH 


Optional 


Blank 


Optional 



Factor 1 : Blank 

Factor 2: Transaction file name or blank 

Reads the previous logical header record from the transaction file. 

If factor 2 is blank, WSU assumes the transaction file name. You can 
code conditioning indicators in columns 9 through 17. Also, you can 
code a record- not-found indicator in columns 54 and 55. This 
indicator turns on when WSU tries to read ahead of the first record in 
a chain or when WSU cannot recognize the type of record read. 

A record-not-found condition occurs when WSU, trying to read the 
previous header record in the chain, reads ahead of the first record in 
the chain. WSU turns on the indicator for the type of record read and 
turns off all other record -identifying indicators for the transaction file. 
A record-not-found condition also occurs when WSU cannot 
recognize the record type. 
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If WSU can recognize the record type, it places the fields for that 
record type into the field area and places the relative record number of 
the record in the *RLRU reserved field. 

WSU provides a way to detect output/input errors that might occur 
during a GETPH operation by allowing you to code an error indicator 
in columns 61 and 62 of the T-specification. Each time WSU starts 
the GETPH operation, that error indicator is set off, and the *ERROR 
reserved field is set to zero. If an error occurs during the GETPH 
operation, the error indicator is set on, and an error code is placed in 
*ERROR. Refer to Chapter 3 for information about *ERROR and the 
error codes that this field can contain. Refer to Chapter 4 for a 
description of the Error Indicator entry on the T-specification. 

WSU also provides ways to detect record -not-found conditions that 
might occur during a GETPH operation by allowing you to code a 
not-found indicator in columns 54 and 55 of the C-specification or in 
columns 49 and 50 of the T-specification. 

If you code different not-found indicators on the T-specification and 
the C-specification, the indicator on the C-specification is used for the 
GETPH operation. The not-found indicator on the T-specification 
does not change and might reflect the result of a previous GETPH 
operation. Refer to Chapter 15 for a description of the Not- Found 
Indicator entry on the T-specification. 

A record -not-found condition is treated as an error only if not-found 
indicators are omitted from the GETPH operation and from the 
T-specification. Therefore, any error indicator in columns 61 and 62 
of the T-specification is used when a not-found condition occurs and 
columns 54 and 55 of the GETPH operation and columns 49 and 50 
of the T-specification are blank. 

If a not-found condition or an output/input error occurs and indicators 
have not been coded in the program to reflect the occurrence, the 
system operator receives WSU message 0803 and an error code. The 
operator should refer to the Utilities Messages manual for a 
description of the error. 

Notes: 

1. The GETPH operation causes a terminal error during program 
generation if the program does not specify a transaction file. 

2. If you code a GETPH operation in your program and there are no 
header records in the file (columns 55 and 56 of the 
T-specification are blank), WSU issues a terminal message during 
program generation. 
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GETPR (Get the Previous Record in the Transaction File) 



Conditioning 
Indicatorsi 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
indicators 


Optional 


Blank 


GETPR 


Optional 


Blank 


Optional 



Factor 1 : Blank 

Factor 2: Transaction file name or blank 

Reads the previous logical record from the transaction file. 

If factor 2 is blank, WSU assumes the transaction file name. You can 
code conditioning indicators in columns 9 through 17. Also, you can 
code a record-not-found indicator in columns 54 and 55. This 
indicator turns on when WSU tries to read ahead of the first record in 
the chain or when WSU cannot recognize the type of record read. 

A record-not-found condition occurs when WSU, trying to read the 
previous record in the chain, reads ahead of the first record in the 
chain. WSU turns on the indicator for the type of record read and 
turns off all other record -identifying indicators for the transaction file. 
A record -not-found condition also occurs when WSU cannot 
recognize the record type. 

If WSU can recognize the record type, it places the fields for that 
record type into the field area and places the relative record number of 
the record in the *RLRU reserved field. 

WSU provides a way to detect output/input errors that occur during a 
GETPR operation by allowing you to code an error indicator in 
columns 61 and 62 of the T-specification. Each time WSU starts the 
GETPR operation, that error indicator is set off, and the * ERROR 
reserved field is set to zero. If an error occurs during the GETPR 
operation, the error indicator is set on, and an error code is placed in 
*ERROR. Refer to Chapter 3 for information about *ERROR and the 
error codes that this field can contain. Refer to Chapter 1 5 for a 
description of the Error Indicator entry on the T-specification. 

WSU also provides ways to detect record-not-found conditions that 
might occur during a GETPR operation by allowing you to code a 
not-found indicator in columns 54 and 55 of the C-specification or in 
columns 49 and 50 of the T-specification. 

If you code different not-found indicators on the T-specification and 
the C-specification, the indicator on the C-specification is used for the 
GETPR operation. The not-found indicator on the T-specification 
does not change and might reflect the result of a previous GETPR 
operation. Refer to Chapter 1 5 for a description of the Not- Found 
Indicator entry on the T-specification. 

A record-not-found condition is treated as an error only if not-found 
indicators are both omitted from the GETPR operation and from the 
T-specification. Therefore, any error indicator in columns 61 and 62 
of the T-specification is used when a not-found condition occurs and 
columns 54 and 55 of the GETPR operation and columns 49 and 50 
of the T-specification are blank. 
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If a not-found condition or an output/input error occurs and indicators 
have not been coded in the program to reflect the occurrence, the 
system operator receives WSU message 0803 and an error code. The 
operator should refer to the Utilities Messages manual for a 
description of the error. 

Notes: 

1. The GETPR operation causes a terminal error during program 
generation if the program does not specify a transaction file. 

2. The GETPR operation cannot read records that are being inserted 
in the transaction file until the processing of the insert display 
ends. 

GOTO 



Conditioning 
indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


GOTO 


Required 


Blank 


Blank 



Factor 1 : Blank 

Factor 2: Label of a TAG operation or an ENDSR operation 

Skips instructions and goes to a TAG or ENDSR statement in the 
program. 

Factor 2 must contain the name of the statement branched to 
(identified by the label on a TAG or ENDSR line). The label in factor 
2 must be left-adjusted. 

You can condition the GOTO operation with indicators in columns 9 
through 17. 
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I MSG (Display an Information Message) 



Conditioning 
Indicators 


Factor 1 


Operation 


Table or Message 
Text 


Resulting 
Indicators 


Optional 


Blank 


IMSG 


Required 


Optional 



Factor 1 : Blank 

Factor 2: MIC or message text 

Displays a user-defined message on the bottom line of the current 

display. 

If resulting indicators are specified by the operation, those indicators 
turn on. The current display is not reissued; the only change to it is 
the message. The processing of the C-specifications stops, and the 
operator cannot type data into any field on the display. 

To clear the message, the operator must press the Error Reset key. To 
resume processing at the C-specification that follows the IMSG 
operation, the operator must press the Enter key, an enabled function 
key, or an enabled user command key. 

If an IMSG operation is performed in processing that has no 
associated display (ES processing, for example), the message is 
displayed on the bottom line of the current display. The operator 
cannot type data into any field on the display. If an IMSG operation 
is performed while the WSU display is shown, the screen is cleared 
before the message is displayed. 

If an IMSG operation is performed in preprocessing before a PUTS for 
the display occurs, the entire current display is shown and the 
message is displayed on its bottom line. 




You can code conditioning indicators in columns 9 through 17 and 
resulting indicators in columns 54 through 59. The indicators in 
columns 54 through 59 turn on when an IMSG operation runs, and 
you can use these indicators to condition later operations, but not to 
condition display attributes or field attributes. 

Columns 33 through 52 can contain message text or a MIC. Message 
text can be alphameric, Katakana, or ideographic data. Chapter 20, 
Ideographic Considerations has more information on Katakana and 
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ideographic data. Message text must be enclosed in apostrophes. 
Code two consecutive apostrophes to represent one apostrophe in 
text. 

You can continue text to columns 7 through 52 of the following 
C-specification line by coding any character except a blank in column 
53 of the line you want to continue and coding the remainder of the 
text (left- adjusted) in columns 7 through 52 of the next line. Column 
7 of the continuation line must not be an asterisk (*) because WSU 
treats such lines as comments. WSU allows 64 positions of message 
text. See Chapter 20, Ideographic Considerations for ideographic 
character considerations. 

An MIC is a 4-digit number that references the appropriate message in 
your message member. Code the MIC in columns 33 through 36. 
Columns 23 through 30 of the J -specification must contain the name 
of your message member. 

L OKUP (Look for Next Element of Array) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Required 


LOKUP 


Required 


Blank 


Required 



Factor 1 : Field or literal 
Factor 2: Array name 

Searches factor 2 for an array element and turns on a resulting 
indicator if the search is successful. 

Factor 1 is the search word (data for which you want to find a match 
in the array named) . Factor 1 , the search word, can be: 

• An alphameric or numeric constant 

• A field name 

• An array element. 

Resulting indicators are always used with a LOKUP operation. The 
indicators first specify the type of search to be made and then reflect 
the result of the search. The specified indicator turns on only if the 
search is successful. 

Resulting indicators specify the type of search and reflect the result of 
the search in the following manner: 

• A resulting indicator assigned to equal (columns 58 and 59) 
instructs the program to search for an entry in the array equal to 
the search word. The first equal entry found turns on the indicator 
assigned to the equal. 

• An indicator assigned to low (columns 56 and 57) instructs the 
program to locate an entry in the array that is nearest to, yet lower 
in sequence, than the search word. The first such entry found 
turns on the indicator assigned to low. 
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• The indicator assigned to high (columns 54 and 55) instructs the 
program to find the entry that is nearest to, yet higher in sequence 
than, the search word. The first higher entry found turns on the 
indicator assigned to high. 

At least one resulting indicator must be assigned, but no more than 
two can be used. Resulting indicators can be assigned to equal and 
high or to equal and low. The program searches for an entry that 
satisfies either condition; however, if no equal entry is found, the 
nearest lower or nearest higher entry is selected. If resulting indicators 
are assigned both to high and low, the indicator assigned to low is 
ignored. 

When you use the LOKUP operation, remember: 

• The search word and each array element must have the same 
length and the same format (alphameric or numeric). 

• A search can be made for high, low, high and equal, or low and 
equal only if the array is in sequence. 

• No resulting indicator turns on if the search is not successful. 

To save processing time, you can start the LOKUP search at a 
particular element in the array. This type of search is indicated by 
additional entries in columns 33 through 42. Enter the name of the 
array to be searched in these columns followed by a comma and a 
numeric literal or by the name of a numeric field (with 0 decimal 
positions). The numeric literal or numeric field provides the number of 
the element at which the search is to start. This numeric literal or field 
is called the index because it points to a certain element in the array. 
All other columns are used as previously described for the normal 
LOKUP operation. 

You can ensure that the elements of the array are in the proper 
sequence for a LOKUP operation by performing a SORTA operation. 

Refer to Chapter 7, Coding Processing, for examples of coding the 
LOKUP operation. 
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MOVE (Move) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
indicators 


Optional 


Blank 


MOVE 


Required 


Required 


Blank 



Factor 1 : Blank 

Factor 2: Field, literal, or * BLANK 

Moves all or part of factor 2 Into the result field. 

Moving begins with the rightmost character of factor 2, which moves 
into the rightmost character of the result field. Factor 2 does not 
change. Resulting indicators cannot be used. 

If factor 2 is longer than the result field, the excess leftmost characters 
of factor 2 do not move. If factor 2 is shorter than the result field, the 
extra leftmost characters in the result field do not change. 

The MOVE operation can be used to change numeric data into 
alphameric data and alphameric data into numeric data. To change 
numeric data into alphameric data, code the name of the numeric field 
in factor 2 and the name of an alphameric field in the result field. To 
change alphameric data into numeric data, code the name of the 
alphameric field in factor 2 and the name of a numeric field in the 
result field. 

When an alphameric field is moved into a numeric result field, the digit 
portion of each character is converted to its corresponding numeric 
character and then moved to the result field. Blanks are transferred as 
zeros. The zone portion of the rightmost alphameric character is 
converted to its corresponding sign and is moved to the rightmost 
position of the numeric field and becomes the sign of the field. 

Refer to Chapter 7, Coding Processing, for examples of moving fields 
with the MOVE operation. 

When the MOVE operation is used to move data into a numeric field, 
the decimal positions specified for the field in factor 2 are ignored. 
For example, if 1 .00 is moved into a numeric field that has one 
decimal position, the result is 10.0. 

You can blank an alphameric field by coding the MOVE operation 
with the * BLANK reserved field as factor 2 and the name of the field 
you want to blank as the result field. 
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MOVEA (Move Array) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


MOVEA 


Required 


Required 


Blank 



Factor 1 : Blank 

Factor 2: Field, literal, or array name 

Transfers characters from factor 2 to the result field. 

Factor 2 and the result field cannot reference the same array even if 
the array is indexed. The array or field referenced by a MOVEA 
operation must be alphameric. 

The length of the move is determined by the shorter of the lengths of 
factor 2 and the result field. If factor 2 is longer than the result field, 
the excess rightmost characters of factor 2 are not moved; if the result 
field is longer than factor 2, the rightmost characters in the result field 
are unchanged. 

The MOVEA operation makes it possible to: 

• Move several consecutive array elements to a single field. 

• Move a single field to several consecutive array elements. 

• Move consecutive elements of one array to consecutive elements 
of another array. 

Movement of data starts with the first element of an array if the array 
is not indexed or with the specified element of an array if the array is 
indexed. The movement of the data ends when the last array element 
is moved or filled or when the number of characters moved equals the 
length of the shorter field specified by factor 2 and the result field; 
therefore, the move could end in the middle of an array element. 

If you use the MOVEA operation with *BLANK in factor 2, and an 
array in the result field, * BLANK fills the entire array. 

If you use the MOVEA operation with *BLANK in factor 2, and an 
array element in the result field * BLANK fills the array from the 
referenced element to the end of the array. 



Operation Codes 18-17 



WVEL (Move Left) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


MOVEL 


Required 


Required 


Blank 



Factor 1 : Blank 
Factor 2: Field or literal 



Moves all or part of factor 2 into the result field. 

Moving begins with the leftmost character of factor 2, which moves 
into the leftmost character of the result field. Factor 2 does not 
change. Factor 1 and resulting indicators must be blank. 

if factor 2 is longer than the result field, the excess rightmost 
characters of factor 2 do not move. If factor 2 is shorter than the 
result field, the excess rightmost characters of the result field do not 
change. 

The MOVEL operation can be used to change numeric data into 
alphameric data and alphameric data into numeric data. To change 
numeric data into alphameric data, code the name of the numeric field 
in factor 2 and name of an alphameric field in the result field. To 
change alphameric data into numeric data, code the name of the 
alphameric field in factor 2 and the name of a numeric field in the 
result field. 

When an alphameric field is moved into a numeric result field, the digit 
portion of each character is converted to its corresponding numeric 
character and then moved to the result field. Blanks are transferred as 
zeros. When factor 2 is longer than the result field or the same length 
as the result field, the zone portion of the rightmost character of factor 
2 is converted and used as the sign of the result field, whether or not 
the rightmost character is included in the move. Chapter 7, Coding 
Processing, contains examples of moving fields with the MOVEL 
operation. 

When the MOVEL operation is used to move data into a numeric field, 
the decimal positions specified for the field in factor 2 are ignored. 
For example, if 1 .00 is moved into a numeric field that has one 
decimal position, the result is 10.0. 

A summary of the rules for MOVEL operations for three conditions 
based on the relationships of field lengths is as follows: 
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If factor 2 is the same length as the result field and: 

1 . If factor 2 is numeric and the result field is either numeric or 
alphameric, the sign is moved with the rightmost position. 

2. If factor 2 is alphameric and the result field is numeric, a minus 
zone is moved into the rightmost position of the result field if the 
zone from the rightmost position of factor 2 is a D (minus zone). 
However, if the zone from the rightmost position of factor 2 is not 
a D, a positive zone is moved into the rightmost position of the 
result field. Digit portions are converted to their corresponding 
numeric characters. 

3. If factor 2 and the result field are alphameric, all characters are 
moved. 

If factor 2 is longer than the result field and: 

1 . If factor 2 and the result field are numeric, the sign from the 
rightmost position of factor 2 is moved into the rightmost position 
of the result field. 

2. If factor 2 is numeric and the result field is alphameric, the result 
field contains only numeric characters. 

3. If factor 2 is alphameric and the result field is numeric, a minus 
zone is moved into the rightmost position of the result field if the 
zone from the rightmost position of factor 2 is a D (minus zone). 
However, if the zone from the rightmost position of factor 2 is not 
a D, a positive zone is moved into the rightmost position of the 
result field. Other result field positions contain only numeric 
characters. 

4. If factor 2 and the result field are alphameric, only the number of 
characters needed to fill the result field are moved. 

If factor 2 is shorter than the result field and: 

1 . If factor 2 is either numeric or alphameric and the result field is 
numeric, the digit portion of factor 2 replaces the contents of the 
leftmost positions of the result field. The sign in the rightmost 
position of the result field is not changed. 

2. If factor 2 is either numeric or alphameric and the result field is 
alphameric, the characters in factor 2 replace the equal number of 
leftmost positions in the result field. No change is made in the 
zone of the rightmost position of the result field. 
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MSG (Display a Diagnostic IVIessage) 



Conditioning 
indicators 


Factor 1 


Operation 


Table or IVIessage 
Text 


Resulting 
Indicators 


Optional 


Blank 


MSG 


Required 


Optional 



Factor 1 : Blank 

Factor 2: MIC or message text 



Interrupts the processing of a display and causes the current display to 
be shown with a user message on the bottom line of the display. 

The message overlays any data that is on the bottom line of the 
display. Output fields conditioned by indicators that are on are 
updated. The cursor, unless placed again by means of an indicator on 
a D -specification, remains where it was when the MSG operation 
occurred. Fields that were protected remain protected; fields that were 
unprotected remain unprotected, even if the indicator that controls 
these attributes changes. Data that the operator has entered is not 
cleared. 

If a MSG operation is performed in processing that has no associated 
display (ES processing, for example), the message is shown on the 
bottom line of the current display. The operator cannot type data into 
any field on the display. If an MSG operation is run while the WSU 
display is shown, the display is cleared before the message is 
displayed. 

The processing of C-specifications stops, and the operator must press 
the Error Reset key before continuing. The operator, after pressing the 
Error Reset key, can enter data into any unprotected input field. When 
the operator responds by pressing the Enter key or a user command 
key, processing resumes with the first operation for the display. The 
RP indicator turns on and can be used to condition operations that 
should or should not repeat. The message is cleared when the Error 
Reset key is pressed. 



The MSG operation performs in the same way, whether or not the 
display has been prepared for processing. The display is shown with 
the message, the operator responds, and then the display's processing 
begins again. 



or message 



1 

MSG 



RP Indicator 
turns on 



You can code conditioning indicators in columns 9 through 1 7 and 
resulting indicators in columns 54 through 59. The indicators in 
columns 54 through 59 turn on wheiii the MSG operation runs. You 
can use these indicators to condition' attributes of the display (for 
example, sound the alarm) or of certain fields (for example, blink these 
fields). 
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Columns 33 through 52 can contain message text or an MIC. 

Message text must be enclosed in apostrophes. Code two 
consecutive apostrophes to represent one apostrophe in text. 

An MIC is a 4-digit number that references the appropriate message in 
your message member. Code the MIC in columns 33 through 36. 
Columns 23 through 30 of the J -specification must contain the name 

of your message member. 

You can continue text to columns 7 through 52 of the following 
C-specification line by coding any character except a blank in column 
53 of the line you want to continue and coding the remainder of the 
text (left-adjusted) in columns 7 through 52 of the next line. Column 
7 of the continuation line must not be an asterisk (*). WSU allows 64 
characters of message text. 
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MULT (Multipiy) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Required 


MULT 


Required 


Required 


Optional 



Factor 1: Numeric field or literal 
Factor 2: Numeric field or literal 

Multiplies factor 1 by factor 2 and places the product in the result 
field. 



Factor 1 and factor 2 do not change unless either is also the result 
field. The result field should be large enough to hold the product; the 
length should be specified in columns 49 through 51 (result field 
length). The maximum product length equals the length of factor 1 
plus the length of factor 2. 

MVR (Move Remainder) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


MVR 


Blank 


Required 


Optional 



Factor 1 : Blanic 
Factor 2: Blank 

Moves the remainder from the previous divide operation to the result 
field. 

The MVR operation must immediately follow the divide operation. 

The maximum length of the remainder (including decimal positions) is 
15. The number of significant decimal positions is the greater of: 

• The number of decimal positions in factor 1 of the previous divide 
operation 

• The sum of the decimal positions In factor 2 and the result field of 
the previous divide operation. 

The maximum whole number positions in the remainder is equal to the 
whole number positions in factor 2 of the previous divide operation. 

You cannot code the MVR operation after a divide operation that you 
half-adjusted (column 53). 
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PRTY (Priority) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Blank 


Blank 


PRTY 


Required 


Blank 


Blank 



Factor 1 : Blank 
Factor 2: 0, 1 , 2, or 3 

Assigns the expected frequency of use to a subroutine. 

When specified, a PRTY operation must immediately follow a BEGSR 
operation. Factor 2 must contain 0, 1 , 2, or 3. The highest priority is 
3, the lowest priority is 0. If the PRTY operation is not specified in a 
subroutine, WSU assigns priority 0 to that subroutine. 

Refer to Assigning Priority to Display Formats and Subroutines in 
Appendix B for an explanation of the use of the PRTY operation. 
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PUT (Write a Transaction File or l\/laster File Record) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


PUT 


Required 


Blank 


Optional 



Factor 1 : Blank 

Factor 2: Transaction file or master file name 



Writes one record to the transaction file or master file. 

A PUT operation is required in a program only if records are added, 
updated, or inserted. 

For a PUT operation to a master file, columns 54 and 55 must be 
blank. For a PUT operation to the transaction file, columns 54 and 55 
can indicate the type of record to be written or can be left blank. You 
can code conditioning indicators in columns 9 through 17; however, 
columns 43 through 53 and columns 56 through 59 must be blank. 

If the PUT operation does not specify a record type, WSU refers to the 
most recent GET operation that occurred for the file since the most 
recent mode change and assumes that the record type recognized and 
saved from this operation is the record type for the PUT operation. 

PUTN (Add to a Master File) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


PUTN 


Required 


Blank 


Required 



Factor 1 : Blank 

Factor 2: Master file name 

Adds one record to a master file. 

Factor 2 must be the name of an indexed master file. You can code 
conditioning indicators in columns 9 through 17; however, columns 
43 through 53 and columns 56 through 69 must be blank. Columns 
54 and 55 must contain the type of the record to be added. 

When a PUTN operation runs, WSU pulls out fields of the indicated 
record type from the field area and adds the record to the file. 

The key of the added record is the contents of the key field (indicated 
on the F-specification) at the time the PUTN operation runs. The 
contents of the GET field (s) specified on the M -specification do not 
indicate the key of the added record. The record key must not be hex 
FFs. 
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PUTS (Show a Display) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


PUTS 


Required 


Blank 


Blank 



Factor 1 : Blank 

Factor 2: Display format name 



Causes the display named in factor 2 to be selected for processing. 

Columns 43 through 59 must be blank. Columns 9 through 17 can 
contain conditioning indicators. 

Factor 2 can be the name of another display in the program or the 
name of the current display (which causes the display to be shown 
again). 

Factor 2 can name a processing level display only if a PUTS operation 
occurs in the processing for that preprocessed display. 

By using command keys and function keys, the operator can interrupt 
normal processing to bypass the current display, to view a help display 
for the program, or to do alternative processing after the PUTS 
operation. 



Processing Level Display named IWDISP 



T 

User 

command 
key or 
Enter key 



Preprocessing 



PUTS IWDISP- 



I 
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The following chart shows how WSU typically selects the display that 
follows a display shown by a PUTS operation during an enter mode 
sequence: 



PUTS for 
Display 1 



Display 1 



End of processing ^ 



Processing 



Select first 
display in 
primary 
sequence 



Select next 
display in 
primary 
sequence 




Select most 
recently shown 
sequenced 
display 



Yes 




Select next 
display in 
secondary 
sequence 



Refer to Using PUTS in Special Processing Level Calculations in 
Chapter 7 for special uses of the PUTS operation. 
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RANGE (Range Check) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Required 


RANGE 


Required 


Required 


Required 



Factor 1 : Field or literal 
Factor 2: Field or literal 

Compares factor 1 with both factor 2 and the result field and, as a 
result of the comparison, indicators turn on as follows: 

High: Factor 1 is greater than the higher value. 

Low: Factor 1 is less than the low^r value. 

Equal: Factor 1 is equal to one of the values or between the two 
values. 

Factor 1, factor 2, and the result field must all be the same type: either 
alphameric or numeric. 

See Chapter 7, Coding Processing, for a list of coding rules for literals. 
SETOF (Set Off) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blanic 


SETOF 


Blanii 


Biani( 


Required 



Factor 1: Blank 
Factor 2: Blank 

Sets off the indicators named in columns 54 through 59. 

Code the indicators that can be set off in columns 54 through 59. The 
headings for columns 54 through 59 (plus or high, minus or low, zero 
or equal) have no meaning for this operation. Refer to Chapter 3, 
Reserved Fields and Indicators, for a description of each of the 
indicators. 

Note: Indicators CG, DL, IJ, IN, IW, and RV cannot be set off by the 
SETOF operation. 
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SETON (Set On) 



Conditioning 
indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


SETON 


Blank 


Blank 


Required 



Factor 1 : Blank 
Factor 2: Blank 

Sets on the indicators named in columns 54 through 59. 

Code the indicators that can be set on in columns 54 through 59. The 
heading for columns 54 through 59 (plus or high, minus or low, zero 
or equal) have no meaning for this operation. Refer to Chapter 3, 
Reserved Fields and Indicators, for a description of each of the 
indicators. 

Note: Indicators AC, CG, DL, IJ, IN, IS, IW, RP, and RV cannot be 
set on by the SETON operation. 

SORT A (Sort the Elements of an Array) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result - 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


SORTA 


Required 


Blank 


Blank 



Factor 1 : Blank 
Factor 2: Array name 

Sequences the elements of an array named in factor 2. 

Factor 1 , the result field, half-adjust, and resulting indicators must be 
blank if a SORTA operation is specified. Indexing is not allowed for 
factor 2. 

You can ensure that the elements of the array are in the proper 
sequence for a LOKUP operation by performing a SORTA operation. 
The array specified in factor 2 is sorted into the sequence specified in 
the E-specification for the array. If no sequence is specified, the array 
is sorted into ascending sequence. The standard EBCDIC collating 
sequence is used for the SORTA operation. 
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SUB (Subtract) 



Conditioning 
indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Required 


SUB 


Required 


Required 


Optiona/ 



Factor 1 : Numeric field or literal 
Factor 2: Numeric field or literal 

Subtracts factor 2 from factor 1 and places the difference in the result 
field. 

Factor 1 and factor 2 do not change, unless either is also the result 
field. 

Subtracting a field from itself is a method of setting the result field to 
zero. 

TAG 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


B/ank 


Required 


TAG 


Blank 


Blank 


Blank 



Factor 1 : Label 
Factor 2: Blank 



Names the statement that a GOTO operation can branch to. 

Factor 1 must begin in column 1 8 with an alphabetic character and 
must be 1 to 6 characters long. 

Factor 1 cannot be the same as: 

• Factor 1 of a BEGSR operation 

• Factor 1 of an ENDSR operation 

• Any other field name defined in the program. 

The TAG operation does not use factor 2 and the result field, and does 
not allow conditioning indicators in columns 9 through 17. 

Refer to Operations in Chapter 7 for examples of coding the GOTO 
and TAG operations. 
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TIME (Get the Time of Day and Date) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


TIME 


Blank 


Required 


Blank 



Factor 1 : Blank 
Factor 2: Blank 



Moves the system time-of-day or the system time-of-day and the 
system date into the result field. 

If the result field specifies a 6-digit numeric field with zero decimal 
positions, the time-of-day is placed in the field. If the result field 
specifies a 12-digit numeric field with zero decimal positions, the 
time-of-day is placed in the first six positions and the system date is 
placed in the last six positions. 

Entries in factor 1 (columns 18 through 27), factor 2 (columns 33 
through 42), half-adjust (column 53), and resulting indicators 
(columns 54 through 59) are not allowed. 

XFOOT (Sum the Values of an Array) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


XFOOT 


Required 


Required 


Optional 



Factor 1 : Blank 
Factor 2: Array name 

Adds the elements of factor 2 and places the sum in the result field. 
Indexing is not allowed in factor 2. 

For information on how to code arrays and array operations, refer to 
Chapter 5, Coding Arrays, and Chapter 14, E-(Array) Specifications. 

Z-ADD (Zero and Add) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
indicators 


Optional 


Blank 


Z-ADD 


Required 


Required 


Optional 



Factor 1 : Blank 

Factor 2: Numeric field or literal 

Adds factor 2 to a field of zeros (result field) and places the sum in 

the result field. 

Factor 2 does not change, unless it is also the result field. 
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Z-SUB (Zero and Subtract) 



Conditioning 
Indicators 


Factor 1 


Operation 


Factor 2 


Result 

Field 

Name 


Resulting 
Indicators 


Optional 


Blank 


Z-SUB 


Required 


Required 


Optional 



Factor 1 : Blank 

Factor 2: Numeric field or literal 



Subtracts factor 2 from a field of zeros (result field) and places the 
difference in the result field. 

Factor 2 does not change, unless it is also the result field. 
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Chapter 19. File Processing Procedures 



This chapter includes detailed information for using the WSU 
procedures. The major functions, prompt display, command statement 
format, parameters, and examples are included for each of the three 
WSU procedures discussed in Chapter 4, Coding Files. 

WSU EXTRACT PROCEDURE (WSUTXEX) 



Major Functions 

The WSU Extract procedure copies records from a WSU transaction 
file or a non-WSU file (but not an immediate access file). The 
difference between these two types of files is that the WSU file has 
control records, data records, and 13 bytes of trailer information in 
each record. The non-WSU file may or may not have control records 
and trailers, but the file is not usable by a WSU program. 

The WSU Extract procedure can specify that one or all work session 
chains are extracted from (pulled out of) a WSU file in logical order, 
that one or all work session chains are extracted from a WSU file in 
physical order, or that all data-containing records are extracted. 

The extracted records can be printed, displayed, put in a disk file, put 
in a new diskette file, or added to an existing diskette file. 

If the extracted records are put in a disk or diskette file, the output 
record length can be shortened to exclude trailer information. Also, 
the number of records allocated for the output file can be reduced to 
allow for leaving out control records. 

Notes: 

1 . The WSU Extract procedure can be used to do the functions 
provided by SUBR22, a subroutine of RPG. 

2. If logically deleted (not chained) records exist in the file, the chain 
should be pulled out in logical order because records which are 
not removed from the chain cannot be identified and cannot 
otherwise be excluded. 

3. The transaction file is created as a direct file; after it is copied it 
becomes a sequential file. 
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Prompt Display 
/ 



WSUTXEX PROCEDURE OPTIONAL- 
COPIES RECORDS FROM A FILE IN LOGICAL OR PHYSICAL ORDER 



NAME OF INPUT FILE 

TYPE OF FILE Fl.Il Fl 

COPY OPTION RS.CR.RC RS 

SESSION IDENTIFIER ... ALL, SESSION ID ALL 

OUTPUT OPTION . . : FILENAME, OUTPTX ,IGC 

NUMBER OF RECORDS FOR OUTPUT FILE 1-8000000 

LENGTH OF RECORD ... 1-4096 

IF COPYING RECORDS TO DISKETTE (II): 

VOLUME ID OF DISKETTE 

RETENTION DAYS OR ADD 0-999, ADD 

LOCATION OF DISKETTE S1,S2,S3,M1. NN,M2. NN 



CMD3-PREVI0US MENU 



CMD4-PUT ON JOB QUEUE 



(C) 1984 IBM CORP 



Parameters 



Name of input file: Specifies the name of the input file 

Type of file (disk F1, diskette = 11): 
Fl 



11 



Specifies that the input file is a disic file. If no parameter is 
entered, F1 is assumed. 

Specifies that the input file is a diskette file. This file must not 
be on disk when the WSUTXEX command is entered. 



Copy option: 
RS 

RC 
CR 



Specifies that header and detail records are to be 
copied in logical order from a WSU transaction file. 
Records removed from the chain are not copied. If no 
parameter is entered, RS is assumed. 

Specifies that header and detail records are to be 
copied in physical order from a WSU transaction file 
or a non-WSU file. 

Specifies that all records that contain at least one 
nonblank position are to be copied in physical order 
from a non-WSU file. 
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Session identifier. 



ALL Specifies that all header and detail records are to be 

copied. 

session ID Specifies that only those header and detail records 
that have the specified session ID are to be copied. 

Output option: 

file name Specifies the name of the file the WSUTXEX 

procedure is to create. This file must not exist when 
the WSUTXEX command is entered. The output file is 
allocated as a temporary sequential file. 

OUTPTX Specifies that copied records are to be listed on the 
system list device. The relative record number that a 
record has in the input file is displayed before that 
extracted record. The hexadecimal representation of 
the characters in the records is shown as follows: 



000000000 
000000004 



0 



The hexadecimal 
representation of 
character W is E6, 
for example. 



These hexadecimal values 
do not have printable 
characters. 



IGC Specifies that copied records containing ideographic 

characters (IGC) are to be listed on the current syslist 
device. If the current syslist device is a display that is 
not capable of displaying ideographic data, the 
ideographic characters will be replaced by dots. If the 
current syslist device is a printer that is not capable of 
printing ideographic data, the printer will treat the 
ideographic data as unprintable characters. If the 
printer stops, enter a 0 to hold the print job, or enter a 
1 to replace the ideographic characters with blanks on 
the printed output. 

The number of extracted records is shown at the end of the printout or 
the display. 

Note: If the file name parameter is blank, extracted records are 
treated as if OUTPUT has been specified. If a printer is the system list 
device, the hexadecimal representation is shown only for nonprintable 
characters. The previous example would be printed as follows: 

W23 

000000000 
000000000 
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Number of records for output file: Specifies the number of records 
that are allocated for the output file. Any number from 1 through 
8000000 can be specified. If a number of records is not specified, the 
number of records actually used in the input file is used. 

The number of records must be specified when extracting records from 
a file whose retention is S or J. 

Lengtti of records: Specifies the length of the records for the output 
file. If this length is longer than the records in the input file, records 
are extended and padded with blanks when they are copied to the 
output file. If this length is shorter than the records in the input file, 
records are truncated to this length when they are copied to the 
output file. If the record length is not specified, the record length of 
the input file is assumed. 

For example, to remove trailers from a WSU transaction file, the record 
length specified for the output file should be 13 positions shorter than 
the input file record length. 

If copying records to diskette (11): 

Volume ID of diskette: Specifies the volume ID of a diskette to receive 
the copied records. If a volume ID is specified, the file name 
parameter is the name of a new or existing diskette file to which 
records are copied. 

Retention days or ADD: 

0-999 Specifies that a new diskette file is to be created 

and the number of days it is to be retained. Any 
decimal number from 0 through 999 can be 
specified (999 indicates a permanent disk). If no 
retention period is entered, 1 day is assumed. 

ADD Specifies that an existing diskette file is to have 

the copied records added to it. 

Location of diskette: 

SI, S2, or S3 Specifies the diskette slot containing the first 
diskette to be used. If a parameter is not 
specified, S1 is assumed. 

M1 .nn or M2.nn Specifies the magazine location that contains the 
first diskette to be used. M1 indicates the first 
magazine, and M2 indicates the second 
magazine, nn is a decimal value from 01 through 
10 that identifies the location of the diskette in 
the magazine. (Specifying Ml is the same as 
specifying Ml .01; specifying M2 is the same as 
specifying M2.01 ). 
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Command Statement Format 

• To copy records from a file and list them or copy them to a disk 
file: 



WSUTXEX input file name. 


Fl 




ES 






11 




RC 










CR 





ALL 

sessi on 



id 



OUTPTX 



» l^number of recordsj f j^r 



output file name« number of recordsK record length 



• To copy records from a file and add them or copy them to a 
diskette file: 



WSUTXEX input file 



name, |^F1 j , 



RC 
CR 



ALL 

session id 



, output file name. 



ij , l^record lengthj,v( 



number of records , record length , volume id. 



retention days 
1 

ADD 



SI 
S2 
S3 

Ml . nn 
M2.nn 
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Examples 



• Print all data records In the WSU transaction file TRANFOO for 
session WO, including those records that the operator cannot 
review in the WO chain of records. Print records in physical order 
and show the hexadecimal representation of only nonprintable 

characters. 

WSUTXEX TRANFOO, F1,RC, WO 

• Print the chain of data records in WSU transaction file TRANF01 
for session W1 . Print records in logical order and have the relative 
record number of a record it has in the input file come before each 
record. Show the hexadecimal representation of each character 
whether it is printable or not printable. 

WSUTXEX TRANF01/F1,RS,W1,OUTPTX 

• Extract all data records in the WSU transaction file TRANF02 for 
session W2 and copy them to a new diskette file, TRANFD2. The 
volume ID of the diskette is PRIV97. No more than 30 records are 
pulled out. 

WSUTXEX TRANF02,F1,RS,W2,TRANFD2,30, ,PRIV97 

Note: Control records are not copied to the diskette file; however 
the trailer remains in each data record. 

• Extract as many as 30 data records in the WSU transaction file 
IRAN F02 for session W3, and copy them to an old diskette file, 
TRANFD2. The diskette volume ID is PRIV97. 

WSUTXEX TRANF02,F1,RS,W3,TRANFD2,30,;PRIV97,ADD 

This example and the previous example show how you can collect 
work session chains in any order on a diskette. Any chains can be 
excluded from the diskette. These examples could also be 
modified to collect work session chains from two or more WSU 
transaction files or to concatenate a work session chain that is in 
two or more WSU transaction files. 

• Add all nonblank records from a non-WSU direct file, STDDIRC, 
to an old diskette file, TRANFD2, The diskette volume ID is 
PRIV97. 

WSUTXEX STDDIRC, ,CR, ,TRANFD2, , ,PRIV97, ADD 

• Copy records from a WSU transaction file, TRANF018, to a new 
diskette file, TRANFI18. The diskette is in slot S2 and its volume 
ID is PRIV97. The file is retained for 7 days. Records are copied 
in logical order, control records are removed, and trailers (in 
positions 59 through 71) are removed from the data records. 

WSUTXEX TRANF018, ,RS,ALL,TRANFI18, ,58,PRIV97,7,S2 

• This example shows how to copy records from a WSU transaction 
file on a disk named WSUTRAN and list those records on the 
system list device. 

WSUTXEX WSUTRAN 
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WSU CREATE PROCEDURE (WSUTXCR) 



Major Functions 

The WSU Create procedure can be used to create a WSU transaction 
file from a non-WSU file but not fronn an immediate access file. An 
output record length that allows for the addition of a trailer to each 
record can be specified. A number of records that allows for the 
addition of control records to the output file can be specified. A 
session ID can be assigned to all of the output records. Also, a WSU 
program that processes the newly created file can be specified. 

The WSU Create procedure can also be used to create a WSU 
transaction file from an existing WSU transaction file. This procedure 
can be used to: 

• Remove unrecognized records or to allow another WSU program 
to use a subset of the file. 

• Allow a specified display station to access all the chains as a 
single chain. 

• Allocate additional or fewer records for the file. 

• Recover inserted records that were lost when the WSU program 
ended abnormally. These records can be recovered, but they will 
not be in the originally intended chain positions. If the session 
chain has changed since the records were lost, these records 
might not be able to be recovered. 

When creating a WSU transaction file, either originally or again, the 
input file can be on disk or diskette and the output file is always a 
direct, disk file. 

You can use the WSUTXCR procedure to recover or remove any 
records that are logically deleted or partially inserted into a file. 

Prompt Display 



WSUTXCR PROCEDURE Optional- 
Creates or recreates a transaction file for a WSU program. 



Name of input file 

Type of file {disk=Fl, disi(ette=Il) Fl.Il Fl 

Create option CR.RC.RS CR 

Session identifier ALL, session ID ALL 

Name of output file 

Size of file in records 1-8000000 

Length of record I'-AOgS 

Name of program 

Name of library 

Location of diskette Sl,S2,S3,Ml.nn,M2.nn 



Cmd3-Previous menu Cmd4-Put on Job queue 

(c) 1983 IBM Corp. 
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Parameters 



Name of input file Specifies the name of the input file. 
Type affile (disk F1, diskette = 11): 

F1 Specifies that the input file is on disk. If no parameter 

is entered, F1 is assumed. 

II Specifies that the input file is on diskette. The input 

file must not exist on disk when the VVSUTXCR 
command is entered. 

Create option: 

CR Specifies that a WSU transaction file is to be created 

from records from the input file. All the records that 
contain at least one nonblank position are copied in 
physical order from the input file to the output file. 
Blank records are added to the file in the relative 
record positions the control records will occupy later. 
If no parameter is entered, CR is assumed. 

RC Specifies that a WSU transaction file is to be recreated 

from the input file which is a WSU file. All control, 
header, and detail records are copied in physical order 
from the input file to the output file. 

RS Specifies that a WSU transaction file is created from a 

WSU transaction file. All header records are copied in 
logical order from the input file to the output file. 

Session identifier: 

ALL Indicates that the session ID in each input file record is 

to be copied unchanged to the output file. The ID is 
assumed to be in the next-to-last 2 bytes in the input 
record, if no parameter is specified, ALL is assumed. 

session ID Specifies the session ID (W1 W2), that is to be placed 
in each output record. 

Name of output file: Specifies the name of the file the WSUTXCR 
procedure is to create. This file must not exist when the WSUTXCR 
command is entered. 

Size of file in records: Specifies the number of records that are to be 
allocated for the output file. If the number of records is not specified, 
the number of records actually used in the input file is used. Any 
number of records from 1 through 8000000 can be specified. When a 
WSU transaction file is created from a non-WSU file, the output file 
requires more records than the input file to allow storage for a job 
control record, a work session control record for each record chain, 
and a blank record at the logical end of each record chain. 

Length of record: Specifies the length of the records for the output 
file. If CR (create WSU transaction file) is specified, the record length 
parameter should allow for the 13-byte trailer at the end of each 
record in the output file. If the record length parameter is omitted, the 
default length used is the input record length, but will not include the 
required 1 3 bytes for the trailer. 
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Name of Program: Specifies the name of a generated WSU program 
that is to use the created WSU transaction file. Information in this 
WSU program is used to identify header records and detail data 
records in the file and logically chain them together. The named WSU 
program should not contain any set of tests for identifying a record 
type in which the tests could be satisfied by a record containing 
blanks in the user data portion of the record. 

WSU can be specified as the program name. This would be done if 
the WSU program for which the transaction file is being created is not 
available (for example, it has not yet been generated) or if blank 
records in the file would be mistakenly identified as data records for a 
defined record type. If WSU is specified as the program name, all 
nonblank detail records in the output file are identified as detail data 
records. 

If the program name is omitted, a trailer must be present in each input 
record because the last byte of the trailer is used to identify header 
records and detail records. A header record contains hex F7 in the last 
byte of its trailer. A detail record contains hex F6 in the last byte of its 
trailer. 

Name of library: Specifies the name of the library that contains the 
generated WSU program. The library name parameter can be specified 
only if the program name is specified. If a library name is omitted 
when a program name is specified, the default library is the current 
library. The library name is ignored if WSU is specified as the program 
name. 

Diskette location: 

S1, S2, or S3 Specifies the diskette slot containing the first 
diskette to be used for input. If a parameter is 
not specified, S1 is assumed. 

Ml .nn or M2.nn Specifies the magazine location that contains the 
first diskette to be used. Ml indicates the first 
magazine and M2 indicates the second magazine, 
nn is a decimal value from 01 through 1 0 that 
identifies the location of the diskette in magazine. 
(Specifying M1 is the same as specifying Ml .01 ; 
specifying M2 is the same as specifying M2.01 ). 
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Command Statement Format 



WSUTXCR input file name. 


EL 




CR 




ALL 


, output file name. 




11 




RC 




session id 





],[, 



umber of records , record length 



wsu 

program name 



library name 
current 1 i brarv 



SI 
S2 
S3 

Ml .nn 
MZ.nn 



Examples 



Create a WSU transaction file, TRANF02, from a non-WSU 
diskette file, TRANFD2. Extend the output record length to allow 
room for trailers in positions 59 through 71 . Increase the number 
of records to 5000 when the output file is created. A WSU 
program named WSUFT02 processes the output file. 

WSUTXCR TRANFD2 , 1 1 , CR , ALL , TRANFO 2 ,5000,71, WSUFT02 



Because ALL is specified, each input file record is assumed to 
have a session ID in the next-to-last 2 bytes in each record. This 
ID is preserved when records are copied. 

• Create a WSU transaction file, TRANF01 8, from a non-WSU 
diskette file, TRANFI18. Extend the output record length to allow 
room for trailers in positions 59 through 71. Assign all records to 
session WO, allocate 1000 records for the output file, and allow 
WSU program WSUFT018 to process the file. 

WSUTXCR TRANFI 18 , I 1 , CR , WO , TRANFO 18,1000,71, WSUFTO 18 
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• Create a WSU transaction file so that another WSU program and a 
specified display station can use it. The WSU file to be duplicated 
is TRANF01 . This file was previously pulled out using the 
WSUTXEX procedure to make the physical and logical order of the 
records in the file the same. The new file name is TRANF018, and 
display station W1 and WSU program WSUFT018 in library 
WSUTEST are able to use it. 

WSUTXCR TRANFOl, ,RC ,W1 ,TRANF018 , , , WSUFTO 18 , WSUTEST 

If this example were modified to use a second set of added trailers, 
a new TRANF01 file could be duplicated for the original sessions 
from any updated TRANF018 records. 

• Create a WSU transaction file in order to recover inserted records 
that cannot be reclaimed because the session was used after the 
WSU program ended abnormally. The file to be duplicated is 
TRANF018 and the new WSU file is TRANFR18. 

WSUTXCR TRANFO 18 , , RC , ALL , TRANFR18 
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WSU RECOVER PROCEDURE (WSUTXRV) 



Major Function 



The WSU Recover procedure recovers a transaction file that has 
problems when a WSU program is running. Unidentified records are 
removed from the file, and blanks are placed in the locations that they 
occupied. (Unidentified records are those records that do not match 
any of the record types that the WSU program recognizes.) 

In addition to recovering a file, the WSU Recover procedure can be 
used to reclaim or remove partially inserted or logically deleted 
records. These records can be in the file after the WSU program or a 
WSU session ends abnormally during insert mode. 



Prompt Display 



WSUTXRV PROCEDURE 

Recovers a transaction file that is 
causing program running problems. 



Optional-* 



Name of transaction file 

Record processing option ....... RECOVER, RECLAIM, REMOVE RECOVER 

Name of program 

Name of library 



Cmd3- Previous menu 



Cmd4-Put on Job queue 



(c) 1983 IBM Corp. 
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Parameters 



Name of transaction file: Specifies the name of the file to be 
recovered. 

Record processing option: 

RECOVER Specifies that control records are to be restored so there is 
no flag to indicate that records have been deleted. 

RECLAIM Specifies that partially inserted records are to be 
reclaimed, that is, operators will be able to use the 
records. Operators are able to view records after the 
records have been reclaimed. 

REMOVE Specifies that partially inserted and deleted records are 
removed from the transaction file. 

Note: If neither RECLAIM nor REMOVE is specified, any partially 
inserted or deleted records remain partially inserted or logically deleted 
in the transaction file. 

Name of program: Specifies the name of a generated WSU program 
that contains the record type format that is to be used to determine 
which records are correct or not correct. Records that do not match 
an allowed record type are removed from the transaction file. If the 
program name is omitted, this parameter and the library name 
parameter are not used. If the program name is omitted but the library 
name parameter is specified, the program name is prompted for by the 
system. 

Name of library: Specifies the name of the library containing the WSU 
program. The library name can be specified only if the program name 
is specified. If the library name is omitted when the program name is 
specified, the current library is assumed. 
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Command Statement Format 



WSUTXRV file name. 


RECOVER 
RECLAIM 
REMOVE 


f program namej , 


library name 
current library 





Examples 

• Reclaim all partially inserted records in a transaction file named 
TRANF02. 

WSUTXRV TRANFO 2, RECLAIM 

• Delete records from a transaction file named TRANF03 that do not 
match the record types described in a WSU program named 
PGM03. The WSU program is in a user library named LI BOS. 

WSUTXRV TRANF03,,PGM03,LIB03 

• Recover a transaction file named TRANF04 and remove 
partially- inserted and logically-deleted records from it. Refer to 
Appendix B, Additional Topics and Programming Considerations 
for a discussion of partially- inserted and ioglcally-deleted records. 

WSUTXRV TRANF04, REMOVE 
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Chapter 20. Ideographic Considerations 



Not every WSU programmer uses ideographic characters. This chapter 
is for those who use ideographic characters (IGC) and 
alphameric-.katakana characters (A/N/K). 

This chapter discusses the uses, requirements, and restrictions you 
should consider when using ideographic, alphameric, and Katakana 
characters. 



To use ideographic characters in a WSU program, you must: 

• Have the ideographic feature on your system. 

• Sign on to an ideographic-capable display by entering Y (yes) to 
the IGC session prompt on the sign on screen. 

• Enter Y (yes) in column 44 of the J -specification for your WSU 
program. 



Alphameric characters are one position each. Ideographic characters 
are two positions each. An ideographic data string starts with a 
shift-out character (SO) of one position, followed by ideographic 
characters of two positions each, followed by a shift- in character (SI) 
of one position. The shift-out character is hexadecimal (OE), and the 
shift- in character is hexadecimal (OF). 

The following figure shows a two-character ideographic data string: 



Using Ideographic Characters 



Space Requirements 




F 



o 



Ideographic Considerations 



20-1 



An ideographic data string always is: 

• An even number of positions. 

• Four or more positions long (the shift-out character, ideographic 
character, and the shift- in character) 

• Bracketed by a shift-out and shift- in characters. 
Usage Restrictions 

Alphameric, Katakana, and ideographic characters can be used for 
input, output, constant, and literal data, ideographic characters 
cannot be used for file names, program names, or library names. 

Display fields can be created, extended, or moved so that the field is 
on two or more lines of the display. If such a field contains 
ideographic data, the last ideographic character on each line must be 
followed by a shift-in character, and the first ideographic character on 
the next line must be preceded by a shift-out character. 

If an ideographic constant is coded on the 0 -specification so that the 
constant continues onto the next line of the D -specification, the first 
coded line must have a shift-in character in column 78 or 79, and 
column 7 of the next line of the D -specification must contain a 
shift-out character. 

WSU will remove the shift- in character coded in column 78 of the 
□ -specification, the blank in column 79, and the shift-out character in 
column 7 of the continuation line. This feature is called 
concatenation. The rules of concatenation are given in Ideographic 
Coding later in this chapter. 

An ideographic-capable display station can display uppercase 
alphabetic characters. An ideographic keyboard can enter only the 
uppercase alphabetic characters. 

WSU programs treat ideographic data as alphameric data. Illogical 
processing and edit codes will pass the syntax check. For example, 
searching ideographic data for a high/low condition may not give a 
meaningful result. 

You must check the output of your WSU programs to ensure that you 
are using the ideographic data correctly. 

Ideograptlic Coding 

J -specification For the details of coding the J -specification for 
Ideographic Mode, see Chapter 13, column 44. 

D-specification For the details of coding the D-specification for 
ideographic and Katakana data, see Chapter 1 6, 
□-specification, column 27. 
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Concatenation Rules 



Concatenating ideographic characters on a D-speciflcation follows 
these rules: 

• If a SI is in column 78 of a D-specification; column 79 is ignored. 

• If a SI is in column 78 of a continued D-specification line and the 
following line has a SO in column 7, any entry in column 79 of 
the first line is ignored, the SI and SO characters are dropped, and 
the constant is displayed without gaps between the ideographic 
data. 

• If a SI is in column 79 of a continued D-specification and the 
following line has a SO in column 7, the Si and SO are dropped, 
and the constant, is displayed without gaps in the ideographic 
data. 

• A SO in column 79 of a D-specification is ignored. 

• A SO in column 78 and a SI in column 79 of a D-specification 
sheet are ignored. 

Sorting For the details of sorting ideographic characters, 

see IBM SI 36 Ideographic Sort Guide, 
SC09-1054. 
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Appendix A. Using Self-Check Fields 



Self-checking numbers offer some amount of protection against 
clerical errors and fraud. Self-checking is particularly useful in 
applications that use account numbers. 

The System/36 offers two methods of self-checking: modulus 10 and 
modulus 11. If a self-checking method (T for modulus 1 0 or E for 
modulus 1 1 ) is specified in column 30 of the D -specification for an 
input field, System/36 determines a self-check digit for the field's 
contents, using the specified self-check method. That self-check digit 
is compared to the rightmost position of the input field. (Nulls and 
blanks are considered to be self-check digits of zero.) If the 
self-check digit matches the rightmost position of the input field, the 
contents of the input field are allowed and the operator can continue. 
If the numbers do not match, the contents of the input field are not 
allowed, and a keyboard error is displayed. The operator must then 
enter an allowed number before continuing. For example, the number 
123216 is a valid modulus 10 number. The self-check digit is 6 and 
must be in the rightmost position of the input field. The remaining 
digits, 1 2321, are used to determine whether the self-check is 
successful. 

The following pages describe the methods for determining the 
self-check digit for the contents of ari Input field. After reviewing how 
the self-check digit is determined, you might want to write a program 
that generates input numbers that successfully complete a self-check. 
You can, for example, use the generated numbers as a basis for 
assigning account numbers, item numbers, or security codes. 

Modulus 10 

To determine the modulus 10 self-check digit, do the following: 

1 . Disregard the rightmost digit. This digit is not used in the 
remaining steps, but is used in determining whether the self-check 
is successful. 

2. Multiply the units position (the rightmost digit of what resulted 
from step 1 ) and every alternate position of that number by 2. 

3. Add the digits in the products to the digits in the numbers that 
were not multiplied in step 2 (again, excluding the original 
rightmost digit). 

4. Subtract the sum from the next higher number ending in zero (0). 

The difference is the self-check digit. Compare this digit with the 
rightmost digit of the input field. If those digits are the same, the 
self-check is successful. 
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For example, suppose you specify modulus 
input field and the operator enters 1 2321 6: 



1 0 self-checking for an 



Number to be self-checked 1 2 3 2 1 

New rightmost position and 13 1 
every alternate position 

Multiply by 2 2 6 2 

Digits not multiplied 2 2 

Add 2+2+6+2+2 = 14 

Next higher number 20 
ending in 0 

Subtract 20 - 14 = 6 

Self-check digit 6 

The self-check digit matches the rightmost digit of the entered number 
(in this case, 6). The self -check is successful. 

Note: Remember that the self-check digit is always in the rightmost 
position of the input field. 



Modulus 11 



To determine the modulus 11 self-check digit, exclude the rightmost 
character and perform the following calculation on the remaining 
digits. 

1 . Assign a weighting factor to each digit of the entered number. 
These factors are: 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, and so on, 
starting with the new rightmost position of the number and 
progressing toward the high-order digit (the leftmost digit). For 
example, the input number 991246351 would be assigned the 
weighting factors as follows: 

Number to be self -checked 9 9 1 2 4 6 3 5 

Weighting factor 32765432 

2. Multiply each digit by its weighting factor. 

3. Add the products. 

4. Divide this sum by 1 1 . 

5. Subtract the remainder from 1 1 . 

The difference is the self-check digit. Compare this digit with the 
rightmost digit of the input field, if those digits are the same, the 
self-check is successful. 

Note: If the remainder from step 4 is 0, the self-check digit is 0. If 
the remainder is 1, the entered numper does not have a self-check 
digit; you must ensure that numbers with remainders of 1 in step 4 are 
not used in the fields you define as self-check fields. 
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For example, suppose you specify modulus 11 self-checking for an 
input field and the operator enters 1 2321 8: 

Number to be self-checked 1 2 3 2 1 

Weighting factors 6 5 4 3 2 

Multiply 6 10 12 6 2 

Add 6+10+12+6+2 = 36 

Divide 36/1 1=3 plus a remainder of 3 

Subtract 11 -3 = 8 

Self-check digit 8 

The self-check digit matches the rightmost digit of the input number 
(in this case, 8). The self-check is successful. 

Note: Remember that the self-check digit is always in the rightmost 
position of the input field. 
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Appendix B. Additional Topics and Programming 
Considerations 



This appendix provides additional information about: 

• Assigning priority to display format processing and subroutines 

• Saving total fields 

• Interactive Communications Feature (ICF) 

• Distributed Data Management (DDM) 

• Delete-capable file considerations 

• Extend file considerations 

• Logical delete considerations 

• User-defined help displays. 

Assigning Priority to Display Format Processing and 
Subroutines 

When a WSU program runs, the entire program may not fit in the 
assigned main storage. WSU uses a technique of overlaying various 
segments of a program upon one another. Generally, better program 
performance occurs if segments of C-specifications that are required 
least often are overlaid most frequently. 

When the C-specifications for a display format or subroutine run, 
WSU determines whether or not the processing segment for that 
format is in main storage. If the segment is not in main storage, WSU 
reads the segment from disk. To make room in main storage, WSU 
overlays one or more program segments. Segments with the least 
probability for use in later processing are the best segments to overlay. 

The priority of a display format or subroutine allows you to control 
which processing segments are overlaid. Assign a high priority to a 
display format or subroutine that is used frequently, which makes the 
associated segment less likely to be overlaid. The processing segment 
remains in main storage for more time. Assign a low priority to display 
formats or subroutines that appear infrequently, which makes the 
associated processing segments more likely to give up their main 
storage to more frequently used segments. 

Assign display formats priorities in column 46 of an S-specification. 
An entry of 3 represents the highest priority. Other priority entries, 
from high to low, are 2, 1, and 0, or blank. 
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Examples of Assigning Priorities 



A sample application has nine display formats, F1 through F9. The 
predicted relative frequencies for these displays are: 



Display 


' Relative 




Frequency 


F1 


6% 


F2 


6% 


F3 


67% 


F4 


10% 


F5 


2% 


F6 


2% 


F7 


2% 


F8 


3% 


F9 


1% 



Based on these predictions, the assigned priorities are: 

Display Priority 

F3 3 

F1, F2, F4 2 

F5, F6. F7. F8 1 

F9 0 or blank 



Saving Total Fields 

When operators resume or recover a WSU program that has a 
transaction file, internal totals accumulated during previous use of the 
program are not available. In order to make them available, you 
should save them from time to time by writing them to a master file. 

To use a master file to keep the totals, create this file with only one 
record. The fields in the record should be the totals that are to be 
saved. When it is time to save the totals, issue a PUT operation to the 
master file. 

To restore the totals when operators resume or recover, issue a GET 
operation conditioned by the RC indicator or RS indicator for the 
master file during IJ processing. 
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Interactive Communications Feature (SSP-ICF) 



If an SSP-ICF session attempts to start a WSU program or attach to a 
WSU program, abnormal program ending occurs. A WSU work 
session is not started for that SSP-ICF session. 

Distributed Data l\/lanagement (DDI\/I) 

DDM is an SSP feature that lets WSU use master and transaction files 
residing on a remote system. When a remote master or transaction file 
is specified, DDM locates the file by its entry in the Network Resource 
Directory (NRD). The NRD is created and maintained by the 
EDITNRD utility provided with DDM. While DDM allows WSU 
programs to run on remote files, WSU Extract and Create procedures, 
WSUTXEX and WSUTXCR, should be run on local data files only. 

Note: DDM requires SSP-ICF. 

Delete-Capable File Considerations 

WSU does not allow records to be physically deleted. (An operator 
can use the Delete command key to logically delete a record; see 
Logical Delete Considerations, below, for more information.) 

Therefore, a WSU program ends abnormally if it tries to use a 

delete-capable transaction file. 

A WSU program can, however, use a delete-capable master file. 
When the program gets a deleted record, a not-found indication 
occurs. These deleted records cannot be updated. 

Also, when a WSU program writes a record that has hex FF in its first 
position to a delete-capable master file, the session ends abnormally. 

Note: A delete-capable file is a file that can contain logically deleted 
records. The file is not physically compressed for record deletions. In 
order to support delete-capable files, a System/36 must have extended 
data management, an optional SSP feature that is specified during 
system configuration. 

Extend File Considerations 

WSU can only extend an old file (one specified with DISP-OLD on 
the FILE statement). If you use the extend function, the file must 
already exist before the WSU program is run. 
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Logical Delete Considerations 



During review mode, an operator can logicaily delete transaction file 
records that were entered for the work session. Logically deleted 
records are removed from the work session's chain of records. 

You can prevent the operator from deleting records by: 

• Disabling the Delete command key on the appropriate 

S-specification. 

• Using the MSG or I MSG operation to display a message to the 
operator if he uses the Delete command key (DL indicator is on). 
This message should instruct the operator to request some other 
function. This message does not prevent the record from being 
deleted (it does not set the DL indicator to off) but it can prevent 
the function from ending. 

If records have been logically deleted from a transaction file, the 
records are unchained and should be removed from the file before the 
file is used by a non-WSU program. The logically deleted records can 
be removed by using the WSU Recover procedure. If you want to 
maintain a record of the logically deleted records, you can move a 
code into the record when it is deleted, then use the WSU Extract 
procedure to remove the deleted records from the transaction file. The 
removed records can be: 

• Printed 

• Displayed 

• Put in a disk file 

• Put in a new diskette file 

• Added to an existing diskette file. 

Chapter 19 contains more information on using the WSU Recover and 
WSU Extract procedures. 

The WSU Recover procedure or the WSU Extract procedure can be 
used to remove the unchained records. The existence of unchained 
records in a transaction file affects the performance of relative record 
operations requested from the WSU display or during the operation of 
SUBR22. 



B-4 



IBM System/36 Work Station Utility Guide 



User-Defined Help Displays 



You can define special help displays for the operator to use during a 
work session. A help display is an information display that the 
operator can request from the WSU display in enter mode, review 
mode, delete mode, or insert mode. You can use help displays to 
provide additional information about such things as: 

• User-defined command key usage 

• Display IDs that can be selected 

• Program operations and functions. 

Help displays are defined on the S-specifications as nonsequenced 
displays and must follow these rules: 

• A format ID (columns 15 and 16) must be specified. The format 
ID must be unique and cannot be IJ, IW, EW, EJ, or ES. 

• Return input fields (Y in column 22) must not be specified. 

• Display sequence (Y in columns 41 and 42) must not be 
specified. 

• Review mode record identifying indicators (columns 48 through 
53) must not be specified. 

• Insert mode record identifying indicators (columns 54 through 59) 
must not be specified. 

• Processing must not be specified (C-specifications). 

The operator can respond to the help display by pressing the Enter 
key. Command Key 1 , or any other command or function key that is 
enabled for the help display. If the operator presses the Enter key, the 
user display that was being processed before the help display was 
displayed is resumed. If the operator presses Command Key 1, the 
WSU display is shown. If the operator presses a command key 
enabled for the help display, the appropriate actiori of that command 
key is performed. User-defined command keys cannot be used to 
respond to a help display. 
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Glossary 



abnormal termination. A system failure or operator action 

that causes a job to end unsuccessfully. 

AC indicator. See accept- command- key indicator. 

accept-command-key indicator. Coded as AC. An indicator 
tliat signals tlie status of any current user-defined command icey 
request. 

accept-sequence-error indicator. Coded as AE. An 
indicator tliat allows operators to bypass required displays. 

access method. The way that records in files are referred to by 
the system. The reference can be consecutive (records are 
referred to one after another in the order in which they appear in 
the file), or it can be random (the individual records can be 
referred to in any order). 

AE indicator. See accept- sequence- error indicator. 

align. To bring into or be in line with another or with others. 
For example, to align numbers on the decimal point. 

allocate. To assign a resource, such as a disk file or a diskette 
file, to perform a specific task. 

alphabetic character. Any one of the letters A through Z 
(uppercase and lowercase). Some program products extend the 
alphabet to include the special characters #, $, and @. 

alphameric. Consisting of letters, numbers, and often, other 
symbols, such as punctuation marks and mathematical symbols. 

alphameric/Katakana (A, N/K). A combination of 
alphameric characters and Katakana characters. 

alphanumeric. See alphameric. 

alternative index. An index that is built after an indexed file is 
created and that provides a different order for reading or writing 
records in the file. 

alternative indexed file. A file that contains an alternative 
index. 

A, IM/K. See alphameric/Katakana. 

application. (1 ) A particular business task, such as inventory 
control or accounts receivable. (2) A group of related programs 
that apply to a particular business area, such as the Inventory 
Control or the Accounts Receivable application. 

application program. A program used to perform an 

application or part of an application. 

arithmetic operator. A symbol used to represent a 
mathematical operation, such as + or -, used to indicate addition 

or subtraction. 

array. A named set of data items, alt of which are the same 
type, arranged in a pattern (for example, columns and rows). 

array element. A single data item in an array. 

assignment. The process of giving values to variables. 

attribute. A characteristic. For example, the attribute for a 
displayed field could be blinking. 

authorize. To grant a user the right to communicate with or 
make use of a computer system or display station. 

back up. To copy information, usually onto diskette, for 
safekeeping. 



base number. The part of a self-check field from which the 

check digit is calculated. 

binary. (1 ) Pertaining to a system of numbers to the base two; 
the binary digits are 0 and 1 . (2) Involving a choice of two 
conditions, such as on-off or yes-no. 

bit. Either of the binary digits 0 or 1 . See also byte. 

block. (1 ) A group of records that is recorded or processed as a 

unit. (2) Ten sectors (2560 bytes) of disk storage. 

branching. Performing a statement other than the next one in 
sequence. 

buffer. (1 ) A temporary storage unit, especially one that 
accepts information at one rate and delivers it at another rate. 
(2) An area of storage, temporarily reserved for performing input 
or output, into which data is read or from which data is written. 

byte. The amount of storage required to represent one 
character; a byte is 8 bits. 

call. To activate a program or procedure at its entry point. 

CG indicator. See current-group indicator. 

chain. A group of logically linked records. 

chained fields. Fields that combine to form a single field that 
WSU uses (as the record key) to read or write a record in a 

master file. 

character. A letter, digit, or other symbol. 

character key. A keyboard key that allows the user to enter 
the character shown on the key. Compare with command keys 
and function key. 

check. (1 ) An error condition. (2) To look for a condition. 

check digit. The rightmost digit of a self-check field used to 

check the accuracy of the field. 

code. (1 ) Instructions for the computer. (2) To write 
instructions for the computer. Same as program. (3) A 
representation of a condition, such as an error code. 

collating sequence. The sequence in which characters are 
ordered within the computer for sorting, combining, or 
comparing. 

column separator. A symbol on each side of a position of a 
field on a display. This symbol does not occupy a position on the 
display. 

command. A request to perform an operation or a procedure. 

command key indicator. Coded as KG through KL and KQ 
through KY. An indicator that is set on when an operator presses 
the corresponding command key. 

command keys. The 1 2 keys on the top row of the display 
station keyboard that are used with the Cmd key (and optionally 
the Shift key) to request up to 24 different actions defined for 
program products and user programs. Compare with character 
key and function key. 

comment. Words or statements in a program or procedure that 
serve as documentation rather than as instructions. 

compile. To translate a program written in a high-level 
programming language into a machine language program. 
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concatenate. (1 ) To link together. (2) To join two character 
strings. 

conditioning. The use of indicators to control when 

calculations or output operations are done. 

conditioning indicator. An indicator used to indicate when 
calculations are done or which attributes apply to a format or 
format field. 

configuration. The group of machines, devices, and programs 
that make up a data processing system. See also system 

configuration. 

constant. A data item with a value that does not change. 
Contrast with variable. 

continuation line. A line of a source statement into which 
characters are entered when the source statement cannot be 
contained on the previous line or lines. 

creation date. The program date at the time a file is created. 
See also program date, session date, and system date. 

current library. The first library searched for any required 
members. The current library can be specified during sign-on or 
while running programs and procedures. 

current record. The record that is currently available to the 
program. 

current-group indicator. Coded as CG. An indicator that 
signals whether the displayed record is from the same order set as 
the previously entered record. 

cursor. A movable symbol (such as an underline) on a display, 
usually used to indicate to the operator where to type the next 
character. 

data file utility (DFU). The part of the Utilities Program 
Product that is used to create, maintain, display, and print disk 
files. 

DDIVI. See Distributed Data Management. 

debug. To detect, locate, and remove mistakes from a program. 

default prompt. A field name from a D-specification used to 
prompt for the field's contents. 

default value. A value stored in the system that is used when 

no other value is specified. 

delete. To remove. For example, to delete a file. 

delete-capable file. A file from which records can be logically 
removed without compressing the file. 

delete-mode indicator. Coded as DL. An indicator that 
signals that the transaction file record selected by the operator for 
review is to be logically deleted when the processing cycle ends. 

detail record. A record that contains the daily activities or 
transactions of a business. For example, the items on a customer 
order are typically stored in detail records. Contrast with tieader 
record. 

DFU. See data file utility. 

diagnosed-source file. A library member containing source 

statements and associated error messages. 

diagnostic. Pertaining to the detection and isolation of an 
error. 

direct file. A disk file in which records are referenced by the 
relative record number. Contrast with indexed file and sequential 

file. 



disk. A storage device made of one or more flat, circular plates 
with magnetic surfaces on which information can be stored. 

diskette. A thin, flexible magnetic plate that is permanently 
sealed in a protective cover. It can be used to store information 
copied from the disk. 

display. (1 ) A visual presentation of information on a display 
screen. (2) To show information on the display screen. 

display format. Data that defines (or describes) a display. 

display layout sheet. A form used to plan the location of data 
on the display. 

display station. A device that includes a keyboard from which 
an operator can send information to the system and a display 
screen on which an operator can see the information sent or 
receive information from the system. 

display station field. In WSU, a field that each display station 
uses and modifies independently. 

display station indicator. In WSU, an indicator that each 
display station uses and modifies independently. 

distributed data management (DDM). A part of the System 
Support Program Product that lets WSU use master and 
transaction files on a remote system. 

DL indicator. See delete-mode indicator. 

edit. (1 ) To modify the form or format of data; for example, to 
insert or remove characters such as for dates or decimal points. 
(2) To check the accuracy of information that has been entered, 
and to indicate if an error is found. 

edit code. A number or letter indicating that editing should be 
done according to a defined pattern. 

EJ indicator. See end-of-job indicator. 

element. The smallest unit of data in a table or array. 

embedded blanks. Blanks that are surrounded by any other 
characters. 

end-of-job indicator. Coded as EJ. The indicator that signals 
that the last operator has specified the end of the work session 
on the WSU display. Compare with end-of -work-session 
indicator. 

end-of-job processing level. The processing level that occurs 
once per job after the end of work session for the last display 
station or when the program sets the EJ indicator on. Compare 
with end- of -worii- session processing level. 

end-of-sequence-set indicator. Coded as ES. The indicator 
that signals that the last display in the primary sequence has been 
processed. 

end-of-sequence-set processing level. The processing level 
that occurs after the last display in the primary sequence has been 
processed. 

end-of-work-session indicator. The indicator that signals 
that an operator has specified end-of-work-session on the WSU 
display. Compare with end-of-job indicator. 

end-of-work-session processing level. The processing level 
that occurs each time an operator specifies the end of the work 
session on the WSU display or when the program sets the EW or 
EJ indicator on. Compare with end-of-job processing level. 

enter. To type in information on a keyboard and press the Enter 
key in order to send the information to the computer. 

enter mode. The mode during which operators can add 
records to their transaction file. 
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ES indicator. See end-of-sequence-set indicator. 

EW indicator. See end- of- wori(- session indicator. 

execution-time array. An array that is loaded after the 
program begins. 

external indicators. Indicators that can be set by another 
program before a program is run or changed while a program is 
running. The external indicators are U1 through U8. 

extract. To obtain. For example, to extract information from a 
file. 

factor. A field name, constant, literal, subroutine name, label, 
display name, or file name used in an operation. 

field. One or more characters of related information (such as a 
name or an amount). 

field area. An area in main storage that contains all of the 

fields defined in a WSU program. 

file. A set of related records treated as a unit. 

file definition. RPG II file description and input specifications 
that describe the records and fields in the transaction file and any 
master files. 

file name. The name used by a program to identify a file. See 
also iabet. 

first-level message. A message that communicates up to 75 
characters of information to the operator. See also second-level 

message. 

format. (1 ) A defined arrangement of such things as 
characters, fields, and lines, usually used for displays, printouts, 
or files. (2) To arrange such things as characters, fields, and 
lines. 

format ID. Two characters that identify a display. An operator 
can enter this ID on the WSU display to select the display. 

format member. A load member that contains display formats 
generated from S and D specifications in a program. 

function key. A keyboard key that requests an action but does 
not display or print a character. The cursor movement and Help 
keys are examples of function keys. Compare with command 
keys and character key. 

half-adjust. A method of rounding off a number by adjusting 

the last significant digit. 

header record. A record that contains information, such as 
customer name and customer address, that is common to 
following detail records. Contrast with detail record. 

hex. See hexadecimal. 

Iiexadecimai. Pertaining to a system of numbers to the base 
sixteen; hexadecimal digits range from 0 (zero) through 9 (nine) 
and A (ten) through F (fifteen). 

ID. Identification. 

ideographic character (IGC). A two-position symbol, 
pictogram, or graphic character used to represent ideas. 

ideographic support function. A version of SSP that 
manages alphameric- Katakana and ideographic-capable display 
stations, printers, and programs. 

I F I L E . See immediate access file. 

IGC. See ideographic character. 

IJ indicator. See Job -initiation indicator. 



immediate access file (IFILE). An index file to which records 
can be added by one program and then located and used 
immediately by another program without a key sort. 

IN indicator. See insert-mode indicator. 

indexed file. A file in which the key and the position of each 
record is recorded in a separate portion of the file called an index. 
Contrast with direct file and sequential file. 

indicator. An internal switch that communicates a condition 
between parts of a program or procedure. 

informational message. A message that provides information 
to the operator, but does not require a response. 

initialize. To prepare for use. For example, to initialize a 
diskette. 

initiate-transaction-sequence indicator. Coded as IS. An 
indicator that signals the start of a new function request. 

input. Data to be processed. 

input-to-process indicator. Coded as IP. In WSU, an 
indicator that signals whenever input data has been received from 
the previous display. 

inquiry. (1 ) A request for information in storage. (2) A request 
that puts a display station into inquiry mode. 

inquiry mode. A mode during which the job currently running 
from a display station is interrupted so that other work can be 
done. The operator puts the display station in inquiry mode by 
pressing the Attn key. 

inquiry program. (1 ) A program that allows an operator to get 
information from a disk file. (2) A program that runs while the 
system is in inquiry mode. 

insert mode. The mode during which operators can insert 
records in the transaction file. 

insert-mode indicator. Coded as IN. The indicator that 
signals that the operator is running WSU in insert mode. 

instruction. A statement that specifies an operation to be 
performed by the computer and the locations in storage of all 
data involved in that operation. 

interactive. Pertains to activity involving requests and replies 
as, for example, between an operator and a program or between 
two programs. 

IP indicator. See input-to-process indicator. 

IS indicator. See initiate-transaction-sequence indicator. 

IW indicator. See work-session-initiation indicator. 

JA-JN and JP-JY indicators. See Job indicator. 

job. (1 ) A unit of work to be done by a system. (2) One or 
more related procedures or programs grouped into a procedure. 

Job control record. In WSU, the first record in the transaction 
file. 

job indicator. Coded as JA through JN and JP through JY. 
An indicator that retains its setting throughout a job and is used 
by each display station running the job. Contrast with mode 
indicator and session indicator. 

job queue. A list, on disk, of jobs waiting to be processed by 
the system. 

job-initiation indicator. Coded as IJ. The indicator that 
signals that the first operator has signed on. 
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job^initiation processing level. The processing level' that 
occurs only once per job when the first operator signs on. 

job-level field. A field that remains in the field area in main 
storage. This field is available to any active display station that is 
using the WSU program. Contrast with mode- level field and 
session-level field. 

K-byte. 1024 bytes. 

Katakana. A native Japanese character set that is used to write 
foreign words phonetically in Japanese. 

key. One or more characters used to identify the record and 
establish the record's order within an indexed file. 

keyword. A symbol that identifies a parameter. 

KG-KL and KQ-KY indicators. See command key indicators. 

label. (1 ) The name in the disk or diskette volume table of 
contents that identifies a file. See also file name. (2) The name 
that identifies a statement. 

LDA. See local data area. 

left-adjust. To place or move an entry in a field so that the 
leftmost character of the field is in the leftmost position. Contrast 
with right-adjust. 

library. (1 ) A named area on disk that can contain programs 
and related information (not files). A library consists of different 
sections, called library members. (2) The set of publications for a 
system. 

library member. A named collection of records or statements 
in a library. The types of library members are load member, 
procedure member, source member, and subroutine member. 

literal. A symbol or a quantity in a source program that is itself 
data, rather than a reference to data. 

load member. A library member that contains information in a 
form that the system can use directly, such as a display format. 
Contrast with source member. 

local data area (LDA). A 512-byte area on disk that can be 
used to pass information between jobs and job steps during a 
session. A separate local data area exists for each command 

display station. 

local system. The system to which the user is currently signed 
on. 

loop. A sequence of instructions that is performed repeatedly 
until an ending condition is reached. 

magazine. A container that holds up to 10 diskettes. 

main storage. The part of the processing unit where programs 
are run. 

mandatory entry field. A field in which an operator must 
enter at least one character. 

mandatory fill field. A field for which an operator must enter 

nothing or must fill in completely. 

mask. A pattern of characters that controls the keeping, 
deleting, or testing of portions of another pattern of characters. 

master file. A collection of permanent information, such as a 
customer address file. 

member. See library member. 

menu. A displayed list of items from which an operator can 
make a selection. 



message. Information sent to an operator or programmer from a 
program. A message can be either displayed or printed. 

message identification code (MIC). A four-digit number 
that identifies a record in a message member. This number can 
be part of the message identification. 

MIC. See message identification code. 

mode indicator. An indicator that changes when the operating 
mode changes. Contrast with job indicator and session indicator. 

mode-level field. In a WSU program, a field that has its value 
saved and is then cleared when the operating mode changes. 
Contrast with job-level field and session-level field. 

module. One part of a program, which usually performs a 
specific task (such as disk input/output). 

modulus l6/modulus 11 checking. Formulas used to 
calculate the check digit for a self-check field. 

MRT procedure. See multiple requester terminal procedure. 

MKT program. See multiple requester terminal program. 

multiple requester terminal (MRT) procedure. A 

procedure that calls a multiple requester terminal program. 

multiple requester terminal (MRT) program. A program 
that can process requests from more than one display station or 
SSP-ICF session at the same time using a single copy of the 
program. Contrast with single requester terminal (SRT) program. 

NEP. See never-ending program. 

network resource directory (NRD). The part of Distributed 
Data Management for locating which remote system contains the 
file being accessed. 

never-ending program (NEP). A long-running program that 
does not share system resources, except for shared files and the 
spool file. 

I non-contiguous key. A key that is made up of 2 or 3 
non- consecutive record fields. 

I non-contiguous keyed file. An alternative indexed file with a 
non-contiguous key. 

nondisplay. A field attribute that prevents the displaying of 
data. 

nonsequenced display. A display that is not part of a 
sequence. Contrast with primary display sequence, secondary 
display, and sequenced display. 

not-found indicator. An indicator that is set on when the 
specified record cannot be found. 

I NRD. See network resource directory. 

null character. The character hex 00, used to represent the 
absence of a printed or displayed character. 

numeric. Pertaining to any of the digits 0 through 9. 

object program. A set of instructions in machine-runnable 
form. The object program is produced by a compiler from a 
source program. 

OCL. See operation control language. 

operand. A quantity of data that is operated on, or the address 
in a computer instruction of data to be operated on. 

operation. A defined action, such as adding or comparing, 
performed on one or more data items. 
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operation code. A code used to represent the operations of a 

computer. 

operation control language (OCL). A language used to 
identify a job and its processing requirements to the System 
Support Program Product. 

operator. A person who operates a device. 

output. The result of processing data. 

overlay. (1 ) To write over (and therefore destroy) an existing 
file. (2) A program segment that is loaded into main storage and 
replaces all or part of a previously loaded program segment. 

override. (1 ) A parameter or value that replaces a previous 
parameter or value. (2) To replace a parameter or value. 

pacited decimal format. A format in which each byte (except 
the rightmost byte) within a field represents two numeric digits. 
The rightmost byte contains one digit and the sign. For example, 
the decimal value +1 23 is represented as 0001 001 0 001 1 1111. 
Contrast with zoned decimal format. 

packed key. An index key in packed decimal format. 

pad. To fill unused positions in a field with dummy data, 
usually zeros or blanks. 

parameter. A value supplied to a procedure or program that 
either is used as input or controls the actions of the procedure or 
program. 

PG indicator. See program-mode indicator. 

position. The location of a character in a series, as in a record, 
a displayed message, or a computer printout. 

preprocessed display. A display on which the processing is 
done before the display is shown. 

preprocessing. Processing for a display that occurs before the 

display is shown. 

primary display sequence. The first set of displays coded in a 
WSU source program. 

printout. Information from the computer that is produced by a 

printer. 

priority. The relative ranking of items. For example, a job with 
high priority in the job queue will be run before one with medium 
or low priority. 

procedure. A set of related operation control language 
statements (and, possibly, utility control statements and 
procedure control expressions) that cause a specific program or 
set of programs to be performed. 

procedure command. A command that runs a procedure. 

procedure member. A library member that contains the 
statements (such as operation control language statements) 
necessary to perform a program or set of programs. 

processing level. One of the stages in the WSU program 

cycle. 

processing level display. A display that appears when the 
associated processing level occurs. 

processing level indicator. The indicator (IJ, IW, ES, EW, or 
EJ) that WSU turns on automatically when the processing level 
begins, or that you can set on to cause any processing for that 
level to occur (ES, EW, EJ only). 

program. (1 ) A sequence of instructions for a computer. See 
source program and load module. (2) To write a sequence of 
instructions for a computer. Same as code. 



program date. The date associated with a program (job step). 
See also creation date.session date, and system date. 

program generation. The compilation of a WSU program. 

program-mode indicator. Coded as PG. An indicator that 
temporarily prevents operator-initiated changes in transaction file 
contents or display sequence. 

program product. A licensed prbgram for which a fee is 
charged. 

prompt. A displayed request for information or operator action. 

protected field. A displayed field in which operators cannot 
enter data. 

quotient. The number or quantity that is the result of a division 
operation. 

RC indicator. See recovery-of-work-session indicator. 

record. A collection of fields that is treated as a unit. 

record identification code. Characters placed in a record to 
identify that record type. 

record identifying indicator. An indicator that identifies the 
record just read. 

record type. The classification of records in a file. 

recovery-of-work-session indicator. Coded as RC. The 
indicator that signals when an operator restarts a work session 
after abnormal termination. 

relative record number. A number that specifies the location 
of a record in relation to the beginning of the file. 

remote file. A file that resides on a remote system. 

remote system. A system that is connected to the local system 
via a communication facility. 

repeated-display indicator. Coded as R P. The indicator that 
signals when a display reappears. 

reserved fields. Special fields provided and maintained by 
WSU that contain such current information as relative record 
numbers, date and time, and error codes. 

resulting indicator. An indicator that is set depending on the 
result of an operation. 

resume-work-session indicator. Coded as RS. The 
indicator that signals when an operator resumes running WSU 
after all other operators successfully ended their work sessions. 

review mode. The mode of WSU in which operators can 
selectively display transaction file records or can move from one 
transaction file record to another. 

review- mode indicator. Coded as RV. The indicator that 
signals that the operator is running WSU in review mode or in 
insert mode. 

review-record indicator. Coded as RR. The indicator that 
signals review or delete. 

right-adjust. To place or move an entry in a field so that the 
rightmost character of the field is in the rightmost position. 
Contrast with left-adjust. 

routine. A set of statements in a program that causes the 
system to perform an operation or a series of related operations. 

rover-update indicator. Coded as RU. An indicator that 
determines whether the transaction file can be updated. 
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RP indicator. Sqq repeated-display indicator. 

RPG. A programming language specifically designed for writing 
application programs that meet common business data processing 
requirements. 

RR indicator. 'See review-record indicator. 

RS indicator. See resume-wor/c-session indicator. 

RU indicator. See rover-update indicator. 

RV indicator. See review-mode indicator. 

SA-SN and SP-SY. See session indicator. 

screen design aid (SDA). The part of the Utilities Program 
Product that helps the user design, create, and maintain displays 
and menus. Additionally, SDA can generate specifications for 
RPG and WSU work station programs. 

SDA. See screen design aid. 

secondary display sequence. The set of displays that follows 
the primary display sequence in a WSU source program. 

sector. (1 ) An area on a disk track or a diskette track reserved 
to record information. (2) The smallest amount of information 
that can be written to or read from a disk or diskette during a 
single read or write operation. 

self-check field. A field, such as an account number, 
consisting of a base number and a check digit. 

sequence checking. Checking done by WSU (in enter mode 
only) to ensure that operators use displays in the intended 
(coded) order. For example, WSU checks to ensure that 
operators do not bypass required displays. 

sequence error. In WSU, an error caused by trying to bypass 
required displays or end-of-sequence-set processing. 

sequence number. A five-digit entry on specifications that 
indicates the order of the specifications. 

sequence set. In WSU, one or more related displays that 
appear in the order in which they occur in the source program. 

sequenced display. A display within a sequence. See 
nonsequenced display. 

sequential file. A file in which records occur in the order in 
which they were entered. Contrast with direct file and indexed 
file. 



severity code. A code that indicates how serious a compiling 
or an operating error is. 

shift-in (SI) character. A one-position character (OF) that 
signifies the end of an ideographic character string. 

shift-out (SO) character. A one-position character (OE) that 
signifies the start of an ideographic character string. 

SI. See shift-in{OF) 

SO. See shift-out (OE) 

sign off. To end a session at a display station. 

sign on. (Verb) To begin a session at a display station. 

single requester terminal (SRT) program. A program that 
can process requests from only one display station or SSP-ICF 
session from each copy of the program. Contrast with multiple 
requester terminal program. 

sort utility. The part of the System Support Program Product 
used to arrange records (or their relative record numbers) in a 
sequence determined by data contained in one or more fields 
within the records. 

source entry utility (SEU). The part of the Utilities Program 
Product used by the operator to enter and update source and 
procedure members. 

source member. A library member that contains information in 
the form in which it was entered, such as RPG specifications. 
Contrast with load member. 

source program. A set of instructions that are written in a 
programming language and that must be translated to machine 
language before the program can be run. 



source statement. 

language. 



A statement written in a programming 



special character. (1 ) A character other than an alphabetic or 
numeric character. For exarriple; *, +, and % are special 
characters. (2) A COBOL character that is neither numeric nor 
alphabetic. Special characters in COBOL include the space (), 
and the period (.), as well as the following: + -*/ = $,")(;< 



specification display. In SEU, the display that guides an 
operator through the entry of a particular type of statement. 



specification sheets. 

described. 



Forms on which a program is coded and 



serialization. The consecutive numbering of statements. 

session. (1) The logical connection by which a System/36 
program or device can communicate with a program or device at 
a remote location. (2) The length of time that starts when an 
operator signs on the system and ends when the operator signs 
off the system. 

session control record. The first record in each display 
station's chain of records in the transaction file. 

session date. The date associated with a session. See also 
creation date, program date, and system date. 

session indicator. An indicator that is set for each session and 
retains its setting when the operating mode changes. Contrast 
with Job indicator and mode indicator. 

session-level field. A field that retains its value when the 
operating mode changes. Contrast with Job-level field and 
mode-level field. 

SEU. See source entry utility. 



specification statement. One of the set of statements that 
provide the compiler with information about the data used in the 
source program. In addition, the statement supplies information 
required to reserve storage for this data. 

SRT program. See single requester terminal program. 

SSP. See System Support Program Product. 

statement. An instruction in a program or propedure. 

statement number. The number assigned to each 
specification. Comments, continued lines, F specifications, and 
unrecognized or out-of-sequence specifications are not assigned 
statement numbers. 

status line. Line 1 of the display which contains general 
information about a job. 

subroutine. A group of instructions that can be called by 
another program or subroutine. 
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subroutine member. A library member that contains 
information that must be combined with one or more members 
before being run by the system. 

subscript. An integer or variable whose value refers to a 
particular element in a table or an array. 

syntax. The rules for the construction of a statement. 

system. The computer and its associated devices and programs. 

system configuration. A process that specifies the machines, 
devices, and programs that form a particular data processing 
system. 

system console. A display station from which an operator can 

keep traci< of and control system operation. 

system date. The date assigned by the system operator during 
the initial program load procedure. See also creation date, 
program date, and session date. 

system library. The library, provided with the system, that 
contains the System Support Program Product and is named 
#LIBRARY, 

System Support Program Product (SSP). A group of 
licensed programs that manage the running of other programs 
and the operation of a.ssociated devices, such as the display 
station and printer. The SSP also contains utility programs that 
perform common tasks, such as copying information from diskette 
to disk. 

table. A collection of data in which each item is uniquely 
identified by a label, by its position relative to the other items, or 
by some other means. 

task. A unit of work (such as a user program) for the main 
storage processor 

terminal error. In WSU, an error that requires correction. 

track. A circular path on the surface of a disk or diskette on 
which information is magnetically recorded and from which 
recorded information is read. 

trailei'. Control information that WSU adds to the end of each 
record in a transaction file. 

transaction. An item of business. The handling of customer 
orders and customer billing are examples of transactions. 

transaction file. (1 ) A file containing data, such as customer 
orders, that is usually used only with a master file. (2) In WSU, a 
direct file containing control records and data records for each 

work session. 

truncate. To shorten a field or statement to a specified length, 
unique. The only one. 

unprotected field. A displayed field for which operators can 
enter, modify, or delete data. 

UPSI switch. See user program status indicator switch. 



user program status indicator (UPSI) switch. One of a set 

of eight switches that can be set by and passed between 
application programs and procedures. 

Utilities Program Product. A program product that contains 
the dav^ file utility (DFU), the source entry utility (SEU), the 
work station utility (WSU), and the screen design aid (SDA). 

utility control statement. A statement that gives a utility 
program information about the way the program is to perform or 
the output it is to produce. 

utility program. A System Support Program Product program 
that allows you to perform a common task, such as copying 
information from diskette to disk. 

U1-U8 indicators. See external indicators. 

variable. A name used to represent a data item whose value 
can change while the program is running. Contrast with 
constant. 

work file. A file that is used for temporary storage of data 
being processed. 

work session. The time during which an operator is using a 
WSU program. 

work session control record. The first record in each work 
session's chain of records in the transaction file. 

work station. A device that lets people transmit information to 
or receive information from a computer; for example, a display 
station or printer. 

work station utility (WSU). The part of the Utilities Program 
Product that helps you to write programs for data entry, editing, 
and inquiry. 

work-session-initiation processing level. The processing 
level that occurs once when each operator starts a WSU program. 
For the first display station operator, the work session begins 
when job has been started. 

work-session-mitiation indicator. Coded as IW. The 
indicator that is set when an operator starts a WSU program. 

WSU. See work station utility. 

WSU display. A display selected by the WSU display 
command key that allows operators to select a display, review a 
record, or end a work session. 

WSU-generated procedure. The procedure that WSU creates 
to load and run a WSU program for the first operator who calls 
the procedure. 

zero suppression. The substitution of blanks for leading zeros 
in a number. For example, 00057 becomes 57 when using zero 
suppression. 

zoned decimal format. A format for representing numbers in 
which the digit is contained in bits 4 through 7 and the sign is 
contained in bits 0 through 3 of the rightmost byte; bits 0 
through 3 of all other bytes contain Is (hex F). For example, in 
zoned decimal format, the decimal value of +123 is represented 
as 1 1 1 1 0001 1111 001 0 1 1 1 1 001 1 . Contrast with packed 
decimal format. 
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Special Characters 

•BLANK 

use in MOVE operation 3-6 

where coded 3-6 
•ERROR 

error codes 3-4 

error indicator on m-specification 1 5-8 

error indicator on t-specification 1 5-4 

how to code 3-4 
•RLNO 

how to code 3-3 

use in transaction file 3-3 
•RLRN 

how to code 3-5 

use as GET field 3-5 
•RLRR 

how to code 3-5 

initial value 3-5 
•RLRU 

how to code 3-5 

input operations 3-5 
•SLNO 
•USID 

how to code 3-6 

use in operations 3-6 
•WSID 

how to code 3-6 

use on C-specifications 3-6 



A 

accept-command-key indicator 

setoff 3-15 

set on 3-15 

when used 17-3 

where coded 3-15 
accept-sequence-error indicator 

on C-specification 17-3 

setoff 3-15 

set on 3-15 

when used 17-3,17-4 

where coded 3-1 5 
ADD 

explanation 7-11 

uses 18-1 
adjust/fill, restrictions 16-21 
alphabetic input field 16-18 
alphameric data to numeric data 1 8-1 6, 1 8-1 8 
alphameric fields, banl<ing 18-16 
alternative indexed files 4-1 
AN/OR, when used 17-2 
AND 4-14 

AND line, maximum number 4-14 
AND/OR relationships 

AND 4-14 

OR 4-15 
AND/OR restriction 3-29 
arithmetic operations 17-11 

ADD 18-1 

DIV (divide) 18-4 

half-adjust 17-11 

MULT (multiply) 18-22 

SUB (subtract) 18-29 

Z-ADD (zero and add) 18-30 
array columns 16-15 
array element 

maximum number 14-1 
array entry length 

binary format 14-2 

numeric 14-2 

packed decimal 1 4-2 
array name, restrictions 



array operations 
examples 5-7 

LOKUP (look for next element of array) 18-14 
modifying contents of 5-5 
SO RTA (sort array) 18-28 
array rows 16-15 
array types 

alphameric array 
numeric array 

binary format 5-2 

packed decimal format 5-2 

arrays 

accumulated totals 5-8 

adding all elements 5-14 

array entries on D -specification 6-15 

array-to- array processing 5-7 

C- (processing) specifications 5-21 

characteristics 5-1 

D-specifications 5-30 

decimal positions on 5-34 

defining 5-5 

different length arrays, processing 5-10 
displaying 6-15 

entire array 5-30 

individual elements 5-31 
E- (array) specifications 5-5 
elements 

consecutive positions 5-33 

displaying 5-30 

I -specification entries from scattered positions 5-36 

maximum number of 5-6 

reading from consecutive positions 5-34 

scattered positions 5-33 
field scanning 5-19 
index 

constant 5-16 

to reference 5-6 

variable 5-18 
index fields 5-25, 5-26 
indexing 5-15 
job level 5-5 
length 

alphameric 5-6 

numeric 5-6 
loading 5-32 
maximum number 1 -7 
mode- level 5-5 
naming of 5-6 
numeric 5-1 
operations on 

arithmetic 5-7 

COMP 5-15,5-23 

LOKUP 5-6, 5-7, 5-23, 5-28 

MOVE 5-7 

MOVEL 5-7 

MVR 5-15 

SORTA 5-6,5-15,5-22 

XFOOT 5-7,5-14,5-15,5-16 

Z-ADD 5-36 
Processing 

array-to-array 5-7 

different length 5-10 

single-value arrays 5-1 1 
reading data into 5-32 
referencing 

elements 5-25 

entire array 5-7 

individual elements 5-15 

part of a field 5-19 
result field name 5-34 
resulting indicators 5-7, 5-14, 5-25 
rolling totals 5-9 
scanning 5-19 
searching 
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for a particular element 5-21 
more than one element 5-27 
results, displaying 5-29 
starting at a particular element 5-23 
successful search 5-25 
sequence checking 5-6 
session -level 5-5 
single-value arrays, processing 5-11 
spacing of 5-6 
using arrays 
totals 5-2 
variable data 5-2 
XFOOT (summing values of 18-30 
ascending sequence, arrays 
assigning priority B-1 
assumed starting line number 16-3 
attention key, to end a work station 10-14 
attribute 

invalid combinations 16-27 
authorized display stations 1 0-2 



B 

batch-edit 2-14 

BEGSR 

explanation 7-33 
uses 18-1 

binary format 4-19 

blanks, changed to nulls 16-9 

blink field, restrictions 16-25 

blocks needed for WSU program 8-12 

branching, operations 

GOTO, explanation 7-19 
GOTO, requirements 18-12 
TAG, explanation 7-19 
TAG, requirements 18-29 

bypass display 1 0-4 

Bypass Display command key 16-10 

bypass mandatory-entry fields 1 6-4 



c 

C-specification entries 

comments 7-6, 17-14 

conditioning indicators 17-3 

Decimal Positions 7-5, 17-10 

Factor 1 7-4,17-5 

Factor 2 7-4, 1 7-5 

Half Adjust 7-5 

half-adjust 17-11 

length 17-9 

literals 17-6 

name 17-9 

operation 17-6 

Processing Function 7-3, 1 7-2 

RANGE operation 17-6 

Result Field 7-5, 17-9 

Result Field Length 7-5 

Resulting Indicators 7-6 
plus or high 17-12 
zero or equal 1 =2 17-12 

table or message text 17-6 
chain of records 1 0-2 
chain-end indicator field 
characters, using ideographic 20-1 
check digit 

CHN information 9-10 
coding forms 

RPG F- (File description) specification 12-1 

RPG l-(lnput) Specifications 12-4 

S/36 S- and D- (Display Format) Specifications 16-1 

S/36 WSU c- (processing) 17-1 

S/36 WSU job, array, and file specification 13-1 
coding, files 4-25 
column separators 

coding 16-28 



restrictions 16-28 
command key indicators 

key/indicator list 3-22 

set off 3-22 

set on 3-22 

when used 17-3 

where coded 3-22 
command keys 

disabling 16-13 

enabling 16-7,16-13 
command statement 

WSUTXCR 19-7 

WSUTXEX 19-1 

WSUTXRV 19-12 
comments, on WSU program 17-14 
COMP 

comparing and testing operations 7-20 

comparing factor 1 to a field or literal 7- 

comparing factor 1 to a table 1 8-2 
comparing and testing operations 

COMP, explanation 7-20 

COMP, requirements 18-2 

RANGE, explanation 7-20 

RANGE, requirements 18-8 
comparing factor 1 to field or literal 7-20 
comparing factor 1 to table 7-22 
COMPILE menu 8-9 
concatenation 20-2 
conditioning indicators 

AC 7-3,17-3 

AE 7-3,17-3 

Blank 7-3,17-3 

CG 7-3, 17-3 

DL 7-3,17-3 

EJ 7-3,17-3 

ES 7-3,17-3 

EW 7-3,17-3 

IJ 7-3,17-3 

t MSG operation 18-13 

IN 7-3,17-3 

IP 7-3,17-3 

IS 7-3,17-3 

IW 7-3,17-3 

JA-JN, JP-JY 7-3,17-3 

KG-KL, KQ-KY 7-3 

KG-KN, KP-KY 17-3 

linking 17-2 

MSG operation 18-20 

PG 7-4,17-3 

RC 7-4,17-3 

RP 7-4,17-3 

RR 7-4,17-3 

RS 7-4,17-4 

RU 7-4,17-4 

RV 7-4,17-4 

SA-SN, SP-SY 7-4 

using more than three 1 7-4 

U1-U8 7-4,17-4 

01-89 7-4 
constant 

constant type and constant data 6-14 

data 6-10 

fields 6-9 

types 16-30 
constant value 

constant data 6-10 

for input fields 6-10 

initial 16-30 

on D-specification 16-30 
continuation of data coding 1 6-32 
controlled field exit 16-22 
current display station 2-23 
current library 13-2 
current-group indicator 

on C-specifications 17-3 

setoff 3-16 

set on 3-16 

to get WSU aid display 10-8 
use of 1 0-4 
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when used 17-3 
where coded 3-16 
cursor 

blinking 16-8 
movement 10-10 
positioning 16-21 



D 

□ -(field description) specification 6-10 
D-CONT 8-8 
D-specification entries 

adjust/fill 6-12.16-21 

auto record advance 6-11, 16-23 

blink field 6-14 

column separator 6-14 

column separators 16-28 

constant data 6-1 4, 1 6-30 

constant type 6-14, 1 6-30 

continuation 6-14, 16-32 

controlled field exit 6-11 

d-specification entries 16-15, 16-16 

datatype 6-12,16-18 

edit code 6-12,16-17 

elements per row or column 6-15 

fill direction 6-1 5 

high intensity 6-14, 16-24 

horizontal positions space factor 6-15 

input allowed 6-1 0, 1 6-1 7 

line skip factor 6-15 

lowercase 6-12,16-29 

mandatory entry 6-12 

mandatory fill 6-12,16-20 

nondisplay 6-14,16-25 

output data 6-10, 16-17 

position cursor 6-11,16-22 

protect field 6-12, 16-23 

reverse image 6-14,16-27 

self check 6-15 

self-check 16-21,16-22 

starting location 6-10 

underline 6-14, 16-27 

WSU arrays 16-15 

WSU field name 6-10 
D-specification, required entries 6-10 
data 

conversion 4-18,4-20 
directing 7-1 
entering 10-10 
entry with edit 1 -6 
entry with update 1 -6 
handling 7-1 

how represented in computer 4-16 

maximum length for compared alphameric 7-20 

maximum length for compared numeric 7-20 

underlined 16-27 
data formats 

binary format 4-19 

examples 4-17 

on I -specification 4-16 

packed decimal format 4-18 

zoned decimal format 4-16 
data management, extended B-3 
data type 

ideographic 16-18 
data verification, numeric data 4-16 
date fields 

as GET fields 3-2 

as output fields 3-2 

list 3-2 

table of values 3-2 

uses 3-2 

WSU reserved fields 3-1 
DDM (Distributed Data Management) 1-7, 4-1, 4-2, B-3 
DEBUG 

on C-specification 7-24 

requirements 18-2 

uses 18-2 



debugging 

a WSU program 9-1 

display 18-3 

operations 1 8-3 
DEC information 9-10 
decimal alignment 7-11 
decimal positions 
delete indicator 

when used 17-3 
delete mode 2-4, 2-21 

cancelling delete request 2-21| 

delete mode 1 0-4 

mode of operation 2-4 

transaction file chain 2-21 

using 2-21 

WSU's role 

determine most recently reviewed record 2-22 

search the S-specification 2-22 

send a message 2-22 

set on and off delete mode indicator 2-22 

show the most recently reviewed record 2-22 

update the trailers 2-22 
delete-capable file considerations B-3 
delete-mode indicator 
setoff 3-16 
set on 3-16 
where coded 3-16 
diagnostic 

checklist 9-2 

data field names used 9-10 

displayed text for programmed 9-11 

extended diagnostics, cross-reference 9-8 

field name and label usages 9-9 

generation 9-2 

in running 9-2 

indicator name usage, alphabetic 9-8 
main storage requirements 9-12 
text 9-12 
tools 9-3 

user message member MICs used 9-9 
diagnostic information 
DIM information 9-10 
direct files 

master files 4-1 

transaction files 4-2 
disk space 

allocation 15-4 

saving 4-18 
disk storage requirements 9-12 
DISP information 9-10 
display characteristics 

each of the fields 6-1 

entire display 6-1 
display format information 

execution time input buffer 9-1 3 

execution time output buffer 9-13 

format load member name 9-13 

input library name 9-13 

main storage required 9-13 

name of source member 9-13 

on generated output 9-13 

output library name 9-13 

S- and D- specifications 9-13 
display formats 

load member 8-17 

where stored 13-1 
display processing 

allowed 16-5 

not allowed 16-5 

Reset Keyboard 16-5 
display selecting 

controlling 2-12 

from WSU display 6-3, 10-6 
display sequences 2-7 

Bypass Display command key 2-7 

consists of 6-5 

defining 2-8 
figure 2-8 

end of 6-5 



Index X-11 



frequency of use 6-7 

in review mode 2-12 

modifying 2-7 

nonsequenced 2-7 

primary 2-7 

secondary 2-7 

start of 6-5 
display sequences in review mode 2-12 
display station 

changing maximum number of 13-3 

current 2-23 

maximum number 8-18,8-19 
display station fields 

•RLNO 3-3 

•SLNO 3-3 

mode-level fields 2-23 

session-level fields 2-23 

when used 1 7-4 
display station identifier, symbolic 3-6 
display station keyboard, illustration 10-3 
display type Z 8-19 ' 
displays 

attributes 6-4 

automatic advance 1 6-22 

bottom line use 16-3 

Bypass Display command key 2-7 

coding 6-1 

guidelines 6-1 

how field will look 6-14 

input fields 6-9 

maximum number per program 6-9 

number of 2-7 

output fields 6-9 

output/input fields 6-9 

pri mary seq u en ce 16-9 

returning to 1 0-8 

review mode displays 2-11 

combined enter/review displays 2-11 
separate review mode displays 2-1 1 

secondary sequence 16-9 

select alternate 10-12 

sequenced 2-7 
Distributed Data IVIanagement (DDM) 1-7, 4-1, 4-2, B-3 
DIV 

explanation 7-11 
requirements 18-4 
duplicate format names 16-1 



E 

E-specification 

array name 14-1 

decimal positions 14-1 

length of entry 14-1 

location in program 14-1 

number of entries in the array 14-1 

sequence A/D 14-1 

uses 5-8 
edit code 

restrictions 16-17 
end-of-job indicator 

on C-specification 17-3 

setoff 3-17 

set on 3-17 

when used 17-2 

where coded 3-17 
end-of-processing routine, common 7-9 
end-of-sequence-set indicator 

setoff 3-18 

set on 3-18 

when used 17-2.17-3 

where coded 3-18,17-3 
end-of-work-session indicator 

on C-specifications 17-3 

setoff 3-19 

set on 3-19 

when used 17-2,17-3 

where coded 3-19 



End, restrictions 16-9 
ENDSR 

explanation 7-33 

in subroutines 7-7 

requirements 18-4 
enter mode 2-4 

Bypass Display command key 2-7 

display sequences 2-7 

figure 2-6 

processing levels 2-5 

program cycle 2-4 

programming cycle 2-4 

return to 10-12 
Enter Mode Sequence, restrictions 16-9 
error codes 3-4 
error conditions 9-15 
errors 

finding and correcting 9-1 

program 9-1 
execution time input buffer 9-13 
execution time output buffer 9-13 
EXSR 

in subroutines 7-7 

requirements 18-5 

uses 7-33 
extend file considerations B-3 
extended data management B-3 
external indicators 

set off 3-27 

set on 3-27 

where coded 3-27 

01 -89 indicators 3-28 



F 

F- and I -specifications, sample coding 4-21 
F-specification, entries 

Filename 12-2 

File Type 12-2 

Key Field Starting Location 12-3 

Length of Key Field 12-3 

Record Address Type 1 2-3 

Record Length 12-2 

required entries 4-11 
filename 4-11 
file type 4-11 
record length 4-11 

required for indexed master file 4-11 
key field length 4-11 
key field start location 4-1 1 
record address type 4-11 

Type of File Organization 1 2-3 
F-specifications 

coding example 4-21 

in file definition 8-4 
F/ICNT information 9-10 
factor 1 and factor 2 entries, chart of 
Factor 1 and Factor 2, comparing 18-2 
Factor 1, comparing to field or literal 7-20 
field exit keys 

enter a negative value 10-10 
field lengths 

alphameric 12-8 

binary 12-8 

maximum 7-6 

packed numeric 12-8 

zoned decimal 12-8 
field lines 4-13 
field name and label usages 9-9 
field names 

defined more than once 9-11 

undefined 9-11 

unreferenced 9-11 
field+ key 16-18 
fields 

blinking 16-25 

describe 15-8 

display station 2-23 
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how will look on display 6-14 

in main storage 3-1 

input 6-9,6-11 

main storage 3-1 

mode level 3-1 

nondisplay 16-25 

numeric output 6-12 

output 6-9,6-11 

output/input 6-9,6-11 

packed on I -specifications 7-6 

protected 16-23 

saving 2-16 

session level 3-1 

skipping over 10-10 

unprotected 16-23 
file coding 4-25, 8-4 
file coding, included in 4-25 
file definition 

coding forms 4-10 

contents 4-10 

entering 8-2 

F-specification 4-11 

{-specification 4-12 

in a WSU program 1 -8 

storing 8-4 
file disposition 8-22 
file processing procedures 4-5 
file type 

direct output 12-2 

input 1 2-2 
format ID 

restrictions 16-2 
Format ID, processing level indicators 

EJ 16-2 

EW 16-2 

IJ 16-2 

IW 16-2 
format load member 9-13 
function keys 10-5 

enabling 16-13 

page backward record 10-5 

page forward record 10-5 

to enable 16-6 



generation message 9-12 
generation output 

created by 8-17 

example of 9-4 

explanation 8-17 
generation printout 

created by 8-17 

example of 9-4 

explanation 8-17 
generation process 8-16 
GET 

combining of 15-7 

read a master file record 7-25 

uses 18-6 
GETNH 

explanation 7-25 

requirements 18-7 

transaction file 18-7 
GETNR 

explanation 7-25 

requirements 18-8 
GETPH 

explanation 7-25 

requirements 18-9 
GETPR 

explanation 7-26 

requirements 18-11 
GOTO 

in subroutines 7-7 

requirements 18-12 

skip instructions 7-19 



H 



header record identifying, use to 15-3 
heading information 9-4 
help displays 

explanation B-5 

requirements B-5 

usage B-5 
history file logging 8-20 
horizontal position, restrictions 16-16 
how to code 3-3 
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I -specification 

coding example 4-21 

in file definition 8-4 

location 12-4 

required entries 4-12 
I -specification entries 

AND/OR 4-12,12-4 

C/Z/D 12-6 

Character 1 2-6 

decimal positions 4-13,12-8 

field location 4-13,12-7 

fieldname 4-13,12-8 

filename 4-12,12-4 

Not 12-5 

P/B/L/R 4-13,12-7 
Position 12-5 

record identification codes 4-12, 12-5 

record identifying indicator 4-12, 12-5 
I -specification file name, entries 12-4 
ideographic 

characters 20-1 

concatenation 20-2 

datatype 16-18 

restrictions 20-2 

space requirements 20-1 
I FILE (immediate access file) 19-1, 19-7 
immediate access file (I FILE) 19-1, 19-7 
I MSG 

explanation 7-26 

requirements 18-13 
indexed files 

master files 4-1 
indicator coding chart 3-30 
indicator name usage 9-9 
indicator operations 

SETOF (set off) 18-27 

SETON(seton) 18-28 
indicators 

AC 3-15 

AE 3-15 

assign 17-4 

CG 3-16 

command key 3-7 

DL 3-16 

EJ 3-17 

ES 3-18 

EW 3-19 

external 3-27 

first called 3-14 

IJ 3-14,3-19 

IN 3-20 

initial settings 3-14 

IP 3-20 

IS 3-20 

IW 3-14,3-21 

JA-JN, JP-JY 3-21 

job 3-9 

KG-KL, KQ-KY 3-22 
mode 3-12 
operating mode 3-7 
PG 3-23 
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processing level 3-7 

RC 3-23 

RP 3-24 

RR 3-25 

RS 3-26 

RU 3-26 

RV 3-26 

SA-SN, SP-SY 3-27 
session 3-9 
setting on and off 3-7 
summary table 3-14 
use of 17-3 
U1-U8 3-14,3-27 
when used 17-3,17-4 
where to code chart 3-30 
01-89 3-28 
indicators, programmable 
AC 3-8 
AE 3-8 
EJ 3-8 
ES 3-8 
EW 3-8 
IS 3-8 

JA-JN, JP-JY 3-8 
KG-KL, KQ-KY 3-8 
PG 3-8 
RC 3-8 
RP 3-8 
RS 3-8 

SA-SN, SP-SY 3-8 

U1-U8 3-8 

01-89 3-8 
indicators, session- level 

AE 3-10 

ES 3-10 

EW 3-10 

indicators 3-27 
set off 3-27 
set on 3-27 
where coded 3-27 

IW 3-10 

RC 3-10 

RS 3-10 

SA-SN, SP-SY 3-10 

U1-U8 3-10 
initial value 3-3 
initialize values 7-9 
initiate-transaction indicator 

on C-specification 17-3 

set off 3-20 

set on 3-20 

when used 17-4 

where coded 3-20 
input and output operations 

GET 18-6 

GETNH 18-7 

GETNR 18-8 

GETPH 18-10 

MSG 18-20 

PUT 18-24 

PUTN 18-24 

PUTS 18-25 

TIME 18-30 
input fields 

data fields 6-9 

mandatory fill 16-20 

maximum number 6-9 
input library name 9-13 
input-to-process indicator 

on C-specification 17-3, 17-6 

set off 3-20 

set on 3-20 

when used 17-3 

where coded 3-20 
inquiry display 10-14 
inquiry program 

with master files 1 -4 



insert mode 2-4,2-18 

Bypass Display command key 2-19 
display sequence 2-19 
insert mode 10-4 
mode of operation 2-4 
transaction file 2-18 
using 2-18 

what WSU can do in 2-20 
with review mode 2-18 
WSU's role 

place the inserted record 2-20 
present the display 2-20 
read displayed record 2-20 
search the S-specifications 2-20 
send message to operator 2-20 
set on and off insert mode indicator 2-20 
updates trailers 2-20 
Insert Mode Record Identifying Indicators, restrictions 16-1 1 
insert-capable 2-18 
insert-mode indicator 

on C-specification 17-3 
on S-specification 16-11 
set off 3-20 
set on 3-20 
when used 17-3 
where coded 3-20 
inserting a group of records 2-19 
instruction 

skipping 18-12 
intensify data 1 6-24 
interactive communications feature B-3 
internal switch 3-7 



J 

J -specification 

coding 4-26 

location 13-1 

number per program 4-25 

required entries 4-26 
J -specification, entries 

date/edit 1 3-4 

display format member name 4-26,13-1 
library name 13-2 

maximum number of display stations 13-3 

message load member name 13-2 

program name 4-26, 13-1 

region size 13-3 
JA-JN, JP-JY (Job) Indicators 

set off 3-21 

set on 3-21 

where coded 3-21 
JA-JN, JP-JY indicators 3-9 
job 

explanation 10-2 

how WSU works 2-1 
job coding 4-26 
job control record 

in transaction files 4-3 
job field, define 17-9 
job indicators 

EJ 3-9 

IJ 3-9 

JA-JN, JP-JY 3-9,3-21 
set off 3-21 
set on 3-21 
where coded 3-21 
list 3-9 
job-initiation-processing indicator 
on C-specification 17-3 
setoff 3-19 
set on 3-19 
when used 17-3 
where coded 3-19 
job- level fields 

job- level fields 2-23,9-10 
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K 

key mask 

chart 16-12 
ID 16-12 
key mask 16-12 
list 16-12 



L 

LCL information 9-10 
library name 

in file definition 8-2 

in source program 8-5 

on WSU-generated procedure 8-18 
literals 

alphameric 17-6 

apostrophes 17-6 
requirements 1 7-6 

numeric 17-6 

apostrophes 17-7 
maximum length 17-7 
requirements 1 7-7 
rules 17-6 

use in operations 17-5 
LNG information 9-10 
load member 

containing display formats 8-18 

containing messages 8-18 

on J-specification 13-1 
local data area (LDA) 

a file name 15-5 

describe 1 5-8 

in file definition type 1 5-8 

use in WSU program 2-24 
logical delete considerations B-4 
LOKUP 

high or low 14-2 

in array operations 7-13 

uses 18-14 
lowercase 

D-specifications 16-29 

priority 16-4, 16-29 

restrictions 16-4 

S-specifications 16-4 



M 

M -specification 
coding 4-29 
error indicator 1 5-7 
field level 15-9 
file definition location 15-6 
file definition type 1 5-8 
file name 15-5 
get field names 15-7 
library name 15-6 
location 15-5 
not-found indicators 15-7 
number per program 4-25 
source member name 15-6 
use of 4-29 

M-specification entries 
error indicator 4-30 
field level 4-30 
file definition type 4-30 
file name 4-29 
GET field names 4-29 
library name 4-29 
not-found indicator 4-30 
source member name 4-29 

main storage 

additional room B-1 
amount 13-3 
changing amount of 13-3 
DEBUG operation 18-2 



requirements 8-21,9-12 
maintenance programs 1 -4 
mandatory entry, restrictions 16-20 
master fields, describe 15-8 
master file 

alternative index 4-1 

error codes 3-4 

file organization 12-3 

indexed 4-11,12-3 

indexed on PUTN operation 18-24 

input file 12-2 

key field length 1 2-3 

key field starting location 1 2-3 

maximum entry 1 2-7 

maximum length 12-5 

maximum number 1 -7, 4-1 

name 8-18,15-5 

non -contiguous keys 4-1,4-11,12-3 

physical characteristics 4-1 

read record from 4-1 

record address type 1 2-3 

record length 12-2 

remote files 1-7, 4-1, B-3 

sharing 4-2 

update file 12-2 

updating a shared 4-2 

updating during review mode 2-17 

use of 1 -4 

uses 4-1 

write records to 4-1 
master file records, updating 2-17 
member name 

in source program 8-5 
member type 8-2 

in source program 8-5 
message 2-16 

send a 2-16 

where stored 13-2 
message displaying 16-3 
message identification code 16-31 
message load member 

J-specification 13-1, 13-2 

library name 8-18 

name and library 8-20 

where stored 13-2 
message overlaying 18-20 
message text 

continuation 17-11 

I MSG operation 17-6, 18-13 

MSG operation 17-6,18-21 

numeric literals, rules 17-6 
mode indicators 

AC 3-12 

CG 3-12 

DL 3-12 

IN 3-12 

IP 3-12 

IS 3-12 

KG-KL, KQ-KY 3-12 

PG 3-12 

RP 3-12 

RR 3-12 

RU 3-12 

RV 3-12 

01-89 3-12 
mode-level fields 

display station fields 2-23 

on generation output 9-10 

on m-specification 15-9 
modes 

changing 10-2 

delete 2-4 

enter 2-4 

irisert 2-4 

operating 10-2 

review 2-4 

when you start 1 0-2 
modes of operation 

changing 10-2 
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delete 2-4 

enter 2-4 

insert 2-4 

operating 1 0-2 

review 2-4 

wlien you start 10-2 
modulus 10 A-1 

calculations A-1 
modulus 1 0 self-check field 1 6-21 
modulus 11 A-2 

calculations A-2 
modulus 1 1 self-check field 16-21 
MOVE 

explanation 7-30 

requirements 18-16 
move array elements 18-17 
move operations 

MOVE 18-16 
MOVEA 

explanation 7-13 

requirements 18-17 
MOVEL 

explanation 7-30 

requirements 18-18 

summary of rules 18-18 
MRT procedure 8-18 
MRT program 2-23 
MRTMAX 8-19 
MSG 

in C-spectfications 7-27 

in preprocessing 7-10 

in subroutines 7-7 

uses 18-20 
MULT 

explanation 7-11 

reqiUirements 18-22 
MVR 

explanation 7-11 

requirements 18-23 



N 

name field information 9-10 
negative value, how to enter 10-10 
NEP 

on WSU generated procedure 8-21 
Network Resource Directory (NRD) B-3 
never-ending program 

on WSU generated procedure 8-21 
non-contiguous keys 4-1, 4-11, 12-3 
non-null characters 16-20 
normal and expected data from testing 9-14 
not-found indicator 

turned off 15-3 

turned on 15-3 
NRD (Network Resource Directory) B-3 
Number of Lines to Clear 1 6-3 
numeric data to alphameric data 1 8-1 6, 1 8-1 8 
numeric field 

binary 12-7 

packed decimal 12-7 

processing 1 6-1 9 

zoned decimal 12-7 
numeric output fields 16-17 



o 

operating modes 10-2 
operation codes 
chart of 17-8 
list 7-4 
operations 17-6 
alphabetic 12-6 
arithmetic 

ADD, explanation 7-11 
ADD, requirements 18-1 



DIV, explanation 7-11 
DIV, requirements 18-4 
length of 7-11 
list of 7-4 

MULT, explanation 7-11 
MULT, requirements 18-22 
MVR, explanation 7-11 
MVR, requirements 18-23 
SUB, explanation 7-11 
SUB, requirements 18-29 
Z-ADD, explanation 7-11 
Z-ADD, requirements 18-30 
Z-SUB, explanation 7-11 
Z-SUB, requirements 18-30 
array 

list of 7-4 

LOKUP, explanation 7-13 
LOKUP, requirements 18-14 
MOVEA, explanation 7-13 
MOVEA, requirements 18-17 
SORTA, explanation 7-13 
SORTA, requirements 18-28 
XFOOT, explanation 7-13 
XFOOt, requirements 18-30 
branching 

GOTO, explanation 7-19 
GOTO, requirements 18-12 
list of 7-4 

TAG, explanation 7-19 
TAG, requirements 18-29 
comparing and testing 

COMP, explanation 7-20 
COM P, requirements 18-2 
list of 7-5 

RANGE, comparing and testing 7-20 

RANGE, explanation 7-24 

RANGE, requirements 18-27 
conditioning of 2-17 
debugging 

list of 7-5 

requirements 7-24, 18-2 
functions 7-11 
indicator setting on and off 

list of 7-5 

SETOF, explanation 7-25 
SETOF, requirements 18-27 
SETON, explanation 7 25 
S ETON, requirements 18-28 
input and output 

GET, explanation 7-25 
GET, requirements 18-6 
GETNH, explanation 7-25 
GETNH, requirements 18-7 
GETNR, explanation 7-25 
GETNR, requirements 18-8 
GETPH, explanation 7-25 
GETPH, requirements 18-10 
GETPR, explanation 7-26 
GETPR, requirements 18-11 
I MSG, explanation 7-26 
list of 7-5 

MSG, explanation 7-27 
MSG, requirements 18-20 
PUT, explanation 7-28 
PUT, requirements 18-24 
PUTN, explanation 7-29 
PUTN, requirements 18-24 
PUTS, requirements 18-25 
TIME, explanation 7-29 
move 

list of 7-5 

MOVE, explanation 7-30 
MOVE, requirements 18-16 
MOVEA, explanation 7-13 
MOVEA, requirements 18-17 
MOVEL, explanation 7-30 
MOVEL, requirements 18-18 

numeric 12-8 

results 17-9 
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subroutine 

BEGSR, explanation 7-33 
BEGSR, requirements 18-1 
ENDSR, explanation 7-33 
ENDSR, requirements 18-4 
EXSR, explanation 7-33 
EXSR, requirements 18-5 
list of 7-5 

PRTY, explanation 7-33 
PRTY, requirements 18-23 

option 

option 8-18 

option on WSX statement 8-22 
OR relationships 4-15 
output 

where stored 13-3 
output data, restrictions 16-17 
output fields 

constants or prompts 6-9 

D-specifications 6-9 

n u meri c format 13-4 
output library name 9-13 
output/input errors 

GET 18-6 

GETNR 18-8 

GETPH 18-10 

GETPR 18-11,18-12 
output/input fields 6-9 
overlaying segments of program B-1 



P 

packed decimal format 

data format 4-18 

on l-specification 12-7 
packed fields, length 4-19 
page backward 2-13 
page backward group 10-4, 15-3 
page forward 2-13 
page forward group 10-4, 15-3 
physically deleting records B-3 
position of data within a line 16-16 
preprocessing 

explanation 7-9 

on C-specification 16-11 
preventing unpredictable results 6-4 
priority 

assigning B-1 

of display frequency 16-10 

restrictions 16-10 
procedures 

WSUTXCR 19-7 

WSUTXEX 19-1 

WSUTXRV 19-12 
Processing (C) Specifications 

comments 7-6, 17-14 

conditioning indicators 17-3 

Decimal Positions 7-5, 17-10 

Factor 1 7-4,17-5 

Factor 2 7-4,17-5 

Half Adjust 7-5 

half-adjust 17-11 

length 17-9 

literals 17-6 

name 17-9 

operation 1 7-6 

Processing Function 7-3, 17-2 

RANGE operation 17-6 

Result Field 7-5,17-9 

Result Field Length 7-5 

Resulting Indicators 7-6 
plus or high 17-12 
zero or equal 1 =2 17-12 

table or message text 1 7-6 
Processing Function Indicators 

AN or OR 7-3,17-2 

EJ 7-3 

ES 7-3,17-2 



EW 7-3,17-2 

IJ 7-3,17-2 

IW 7-3,17-2 

SR 7-3,17-2 
processing level indicator 

list 17-2,17-4 
processing levels 

figure 2-6 

in enter mode 2-5 
processing, interruption 18-25 
program 

testing 9-14 

WSU source 1-9 
program cycle 2-4 
program date 

date, format 13-4 

format 13-4 
program mode indicator 

one-specification 17-3 

set off 3-23 

set on 3-23 

when used 17-3 

where coded 3-23 
program name 13-1 
programmable indicators 

AC 3-8 

AE 3-8 

EJ 3-8 

ES 3-8 

EW 3-8 

IS 3-8 

JA-JN, JP-JY 3-8 
KG-KL, KQ-KY 3-8 
PG 3-8 
RC 3-8 
RP 3-8 
RS 3-8 

SA-SN, SP-SY 3-8 
U1-U8 3-8 
01-89 3-8 
programmed halts, displayed text for 9-1 1 
programs, example 
SE100W 

coding sheets 11-55 

explanation 1 1 -54 

printout 11-60 
1 Ml low 

coding sheets 11-5 

explanation 11-1 

printout 11-17 
1 M300W 

coding sheets 1 1 -33 

explanation 1 1 -30 

printout 1 1 -42 

prompt 

coding 16-30 

prompt 6-10 

SEU 8-5 

uses of 6-10 
prompt display 

WSUTXCR 19-7 

WSUTXEX 1 9-2 

WSUTXRV 19-12 
protect field, restrictions 1 6-23 
PRTY 

explanation 7-33 

requirements 18-23 
PUT 

explanation 7-28 

requirements 18-24 
PUTN 

explanation 7-29 

requirements 18-24 
PUTS operation 

explanation 7-29 

in preprocessing 7-9 

in review mode 2-17 

in special processing 7-34 

operations 16-2 
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uses of 18-25 



R 

RANGE 

explanation 7-20 

requirements 18-27 
record 

recover inserted 19-7 

unchained B-4 
record chains 

creating from several records 4-6 

excluding or reordering 4-6 
record deletion 1 -6 
record deletion, prevention B-4 
record identification character 

copying records 19-1 

create WSU file from non-WSU 1 9-1 

digit 12-6 

digit portion 1 2-6 

maximum per line 4-14 

portion used 12-6 

remove blank records 19-1 

removing records 19-12 

special 1 2-5 

zoned portion 1 2-6 
record insertion 1 -6 
record insertion, how to 10-13 
record key 

alphameric 12-3 

length 12-3 

packed decimal 12-3 

starting location 12-3 
record lines 

I -specification 4-12 

include 4-12 

maximum number 4-12 
record review 1-6 
record review type 16-11 
record type 

indicators 12-5 

relationship 12-4 
record-not-found condition 

GETNH 18-7 

GETNR 18-8 

GETPH 18-9 

GETPR 18-11 
recovery-of-work session indicator 

set off 3-23 

set on 3-23 

when used 17-4 

where coded 3-23 
region size 

modify on J -specification 1 3-3 

on J-specification 13-3 

WSU-generated procedure 8-18 
relative record number 2-14 

adding or updating 10-7 

print 4-6 
remote files 1 -7, 4-1 , 4-2, B-3 
repeat display 16-10 
Repeat, restrictions 16-10 
repeated-display indicator 

set off 3-24 

set on 3-24 

when used 17-3 

where coded 3-24 
reports printed 1 -6 
reserved fields 

list 3-1 

Reset Keyboard, restrictions 16-5 
restrictions 20-2 
result field 

decimal positions 17-10 

define 17-9 

half-adjust 17-11 

packed fields 17-9 
resulting indicators 



additional uses 17-14 
before an operation 17-12 
IMSG operation 17-14,18-13 
LOKUP operation 18-14 
MSG operation 17-14 
PUT operation 17-14 
PUTN operation 17-14 
SETOF operation 17-14 
SETON operation 17-14 
turning on 17-12 
resume enter mode 10-4 
resume review 2-15 
resume review mode 10-4 
resume- work- session indicator 
set off 3-26 
set on 3-26 
when used 1 7-4 
where coded 3-26 
return fields to program 1 6-4 
Return Input, restrictions 16-4 
reverse data image 16-27 
review mode 2-4 

Bypass Display command key 2-12 
combined enter/review displays 2-1 1 
display sequences 2-12 
displays 2-11 
functions 2-13 

page backward 2-13 

page forward 2-13 
how to get 2-9 
how to select 10-12 
indicator 3-26 

setoff 3-26 

set on 3-26 

where coded 3-26 
mode of operation 2-4 
relative record number 2-14 
resume review 2-15 
review only 2-10 
review with master file update 2-10 
review with update 2-10 
separate review mode displays 2-1 1 
variations 2-10 
when allowed 2-11 
WSU'srole 2-16 

issue message 2-16 

place relative record number 2-16 

retrieve records 2-16 

save fields 2-16 

search S-specifications 2-16 

set mode- level fields 2-16 

set on RV and 99 2-16 

show requested record 2-16 
review mode displays 2-11 

Review Mode Record Identifying Indicators, restrictions 16-11 

review only mode 2-10 

review with master file update 2-10 

review with update 2-10 

review-capable 2-9 

review-mode indicator 

review mode indicators 16-11 

set off 3-26 

set on 3-26 

where coded 3-26 
review-record indicator 

one-specification 17-3 

set off 3-25 

set on 3-25 

when used 17-3 

where coded 3-25 
right adjust field 16-21 
Roll Down key 

enabled 16-6 

Key Mask 16-13 
Roll Up key 

enabled 16-6 

Key Mask 16-13 
rover- update indicator 

setoff 3-26 
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set on 3-26 
where coded 3-26 
RPG F-(File Description), entries 
Filename 12-2 
File Type 12-2 

Key Field Starting Location 12-3 
Length of Key Field 1 2-3 
Record Address Type 1 2-3 . 
Record Length 12-2 
Type of File Organization 12-3 
RV indicator 2-4 



s 

S-specification 

blink cursor 6-4, 16-8 
display format name 6-3, 1 6-1 
enable command keys 6-4, 16-7 
enable function keys 6-4,16-6 
enter-mode sequence 
End 16-9 

enter-mode sequence 6-5 

Entry Required 16-10 

Repeat 16-10 

Start 16-9 
format ID 6-3, 16-2 
insert mode indicators 6-8 
key mask 6-4,16-12 
lowercase 6-4, 16-4 
Null Fill 16-9 

Number of Lines to Clear 16-3 

preprocess 6-7,16-11 

priority 6-7, 16-10 

Reset Keyboard 16-5 

return input 6-4, 16-4 

review mode indicators 6-8 

Review Mode Record identifying Indicator 16-11 

Review Mode Record Identifying Indicators 16-11 

sound alarm 6-4, 16-5 

Start Line Number 16-3 
S-specifications 

location 16-1 

required entries 16-1 
SCR information 9-10 
screen design aid 

use in WSU 6-1 
SDA 

use in WSU 6-1 
SDAD1 8-8 
SDAD2 8 8 

search word, LOKUP operation 18-14 
selection of desired display 16-2 
selection of displays by ID 16-2 
selections of WSU display 16-2 
self-check digit, formulas A-1 
self-check field 

calculating A-1 

how to code 16-21 

numeric A-1 

verification A-1 
sequence, arrays 14-2 
session field headings 9-10 
session indicators 

AE 3-10 

ES 3-10 

EW 3-10 

indicators 3-27 
set off 3-27 
set on 3-27 
where coded 3-27 

IW 3-10 

RC 3-10 

RS 3-10 



SA-SN, SP-SY 3-10 

U1-U8 3-10 
session-level fields 

in file definition 15-6 

on m-specification 15-6,15-9 

values of 2-23 

where defined 2-23 
session-level fields, initialization 4-29 

used in the program 9-10 
session-to-session indicators 3-27 
SETOF 7-25 
SETOF, uses 18-27 
SETON 7-25 
SETON, uses 18-28 
SEU 8-1 

SEU procedure prompt 8-2, 8-5 

illustration 8-2 

specification display types 8-3 
sign in numeric data 4-16 
sign, on numeric data 4-20 
simple data entry 1 -5 
SORTA 

explanation 7-13 

requirements 1 8-28 
source entry utility, using 8-1 
source members, multiple 8-4 
source program 8-5 

entering 8-5 

restriction 8-8 
source program information 

error message numbers 9-6 

source statements and file 9-6 

statement numbers 9-6 
space 20-1 
special WSU fields 3-1 
specification display types 8-7 
specification order 8-6 
specifications, entering and updating 8-1 
specifications, order for WSU programs 1 -2 
SR, when used 17-2 
Start Line Number, equation 16-3 
Start, restrictions 16-9 
starting line number 3-3 
statement number 

in source program information 9-6 
STMT# information 9-10 
storage requirements 9-12 
SUB 

explanation 7-11 
subroutine operations 
BEGSR 7-7 

BEGSR (begin subroutine) 18-1 
ENDSR 7-7 

ENDSR (end subroutine) 18-4 

EXSR (execute subroutine) 18-5 

GOTO 7-7 

PRTY (priority) 18-23 

TAG 7-7,18-29 
subroutines 

beginning 18-1 

branching point 18-4 

ending 18-4 

EXSR 7-7 

MSG operation 7-7 

requirements 7-7 

subroutines 7-7 

using PRTY 7-7 

where coded 7-33 
SUBR22 19-1 

symbolic display station identifier 3-6 
system date 7-29 
system time 7-29 
system time-of-day 18-30 

System/36 Display Format Specifications coding sheet 16-1 
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T 

T-specification 
coding 4-27 
error indicator 1 5-4 
file definition location 15-1 
filename 15-1 

header record identifying indicator, use 15-1 
library name 15-1 
location 15-1 
not-found indicator 15-1 
number of records 1 5-1 
number per program 4-25 
number per WSU program 4-27 
required entries 4-27 
source member name 15-1 
use of 4-27 
T-specification entries 
error indicator 4-28 
file name 4-27 

header record identifying indicator 4-27 

library name 4-27 

not-found Indicator 4-27 

number of records 4-28 

source member name 4-27 
table or message text, IMSG operation 18-13 
TAG 

explanation 7-19 

requirements 18-29 
template, work station 10-3 
test data 9-14 
testing, how to shorten 9-16 
TIME 

explanation 7-29 

requirements 18-30 
total fields 

accumulating totals B-2 

restoring B-2 

saving B-2 
totals, back out 7-9 
trailers 

chart 4-9 

data record 4-9 

job control record 4-9 

symbolic identifier 4-8 

transaction files 4-8 

work session control record 4-9 
transaction file 

*RLNO 4-3 

concatenation 4-6 

control information 1 -7 

creation 19-7 

creation from non-WSU file 4-6 

data from 1-7 

deleting records in 10-14 

description 4-3 

detail records 1 -7 

error codes 3-4 

explanation 4-2 

header records 1 -7 

inserting records into 10-13 

job control record 4-3 

logical organization 4-8 

figure 4-8 
maximum entry 12-7 
maximum length 12-5 
maximum number 1-7 
modes 2-4 
MOVEA 18-17 
name 8-18 
non-WSU program 4-8 
not-found indicators 18-8 
number of records 8-18 
number per WSU program 4-27 
output/input errors 

GETPH 18-10 

GETPR 18-11,18-12 
prepare for use by non-WSU program 4-5 
reading records 4-3 



record length 12-2 
record- not-found condition 

GETNH 18-7 

GETNR 18-8 

GETPH 18-9,18-10 

GETPR 18-11 
recovering 4-4 
recovery 4-7 
remote files 1 -7, 4-2, B-3 
remove blank records 4-6 
remove or reclaim partially inserted records 4-7 
remove partially inserted records 4-7 
removing trailers 4-4 
review a record 4-6 
review records in 10-12 
unique 4-2 
use of 1 -4 

work session identifier 4-8 
writing records 4-3 
two's complement 4-20 



U 

underline data 16-27 

universal work session selection 8-1 8 

UNIV-ALL 8-22 

UNIV-id 8-22 
unpredictable results, preventing 6-4 
updating master file records 2-1 7 
user command keys 10-5 
user message member MICs 9-9 
user-defined help displays B-5 
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